(module support
  *
  (import scheme chicken)
  (define an-identifier "from-support"))


(module mod5
  *
  (import scheme chicken extras)

  (import-for-syntax support)

  (define-syntax test-macro
   (ir-macro-transformer
    (lambda (expr inject cmp)
      (let ((x an-identifier))
       `(list ',an-identifier))))))


(import mod5)

(test-macro)


;; csc test2.scm
;;
;; Error: during expansion of (test-macro ...) - unbound variable: support#an-identifier
;;
;;	Call history:
;;
;;	<syntax>	  (##core#begin (test-macro))
;;	<syntax>	  (test-macro)	<--