Run this with csi -b:

(module foo
 (bar)
 (import chicken scheme)
 
 (define-syntax bar
   (ir-macro-transformer
    (lambda (e i c)
      `(list define)))))

(module a
 *
 (import chicken scheme)
 (import foo)

 (bar))