(define-syntax foo
	  (ir-macro-transformer
	   (lambda (e i c)
	     (print "--") 
	     (print "e\t " e)
	     (print "(i e)\t "(i e))
	     `(begin))))
(begin-for-syntax (print "without module"))
(foo (bar foo baz a))
(foo (bar foo baz 'a))

(module irtest-foo
	(foo2)
	(import chicken scheme)
	(define-syntax foo2
	  (ir-macro-transformer
	   (lambda (e i c)
	     (print "--") 
	     (print "e\t " e)
	     (print "(i e)\t "(i e))
	     `(begin)))))

(import-for-syntax irtest-foo)
(begin-for-syntax (print "with module"))
(foo2 (bar foo baz a))
(foo2 (bar foo baz 'a))

;; without module
;; --
;; e	 (foo28 (bar29 foo28 baz30 a31))
;; (i e)	 (foo (bar foo baz a))
;; --
;; e	 (foo33 (bar34 foo33 baz35 (quote36 a37)))
;; (i e)	 (foo (bar foo baz (quote a)))
;; with module

;; Error: unbound variable: foo2