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

(make-hello-proc hello)
(hello)