id	summary	reporter	owner	description	type	status	priority	milestone	component	version	resolution	keywords	cc	difficulty
1494	Indirect exports with (export (foo bar)) style are not working	megane		"{{{
(module
 m
 () ;; ((foo bar)) works here
 (import scheme)
 (cond-expand
  (chicken-5 (import (chicken base) (chicken module)))
  (else (import chicken)))

 (define (bar) 1)

 (export (foo bar))

 (define-syntax foo
   (ir-macro-transformer
    (lambda (e inj cmp)
      '(bar)))))

(import m)

(print (foo))

;; $ csi -qbn macroexport.scm
;; 
;; Warning: indirect export of unknown binding in module `m': bar
;; 
;; Error: unbound variable: bar
;; 
;; 	Call history:
;; 
;; 	<syntax>	  (lambda (e inj cmp) (quote (bar)))
;; 	<syntax>	  (##core#lambda (e inj cmp) (quote (bar)))
;; 	<syntax>	  (##core#begin (##core#quote (bar)))
;; 	<syntax>	  (##core#quote (bar))
;; 	<eval>	  (ir-macro-transformer (lambda (e inj cmp) (quote (bar))))
;; 	<syntax>	  (##core#undefined)
;; 	<eval>	  (##sys#load-library (##core#quote library))
;; 	<eval>	  (##sys#load-library (##core#quote library))
;; 	<syntax>	  (import m)
;; 	<syntax>	  (##core#begin (##core#undefined))
;; 	<syntax>	  (##core#undefined)
;; 	<syntax>	  (print (foo))
;; 	<syntax>	  (foo)
;; 	<syntax>	  (bar300)
;; 	<eval>	  (print (foo))
;; 	<eval>	  (bar300)	<--

}}}"	defect	closed	major	5.1	compiler	5.0.0	invalid	modules		hard