(import chicken scheme)

; this works
(import chicken scheme)
(define (foo x) x)

(define-syntax bar
  (er-macro-transformer
    (lambda (e r c)
      (let ((baz (foo 1)))
        baz))))
        
(bar 1) 

; this fails - unbound variable: foo
(module z
        (*)
        (import chicken scheme)
        (define (foo x)
          x)

        (define-syntax bar
          (er-macro-transformer
            (lambda (e r c)
              (let ((baz (foo 1)))
                baz
                ))))
        (bar 1))