(define-syntax make-hello-proc
  (ir-macro-transformer
    (lambda (form inject compare)
      `(define (, (string-append "my-" (cadr form)))
         (printf "Hello, World!~%")))))

(make-hello-proc hello)
(my-hello)