[Chicken-janitors] #83: artificially constructed identifiers are not recognized as exports

[Chicken Trac]

#83: artificially constructed identifiers are not recognized as exports
----------------------+-----------------------------------------------------
 Reporter:  felix     |       Owner:  felix
     Type:  defect    |      Status:  new  
 Priority:  major     |   Milestone:  4.3.0
Component:  expander  |     Version:  4.2.x
 Keywords:            |  
----------------------+-----------------------------------------------------
 The following example fails, because `##sys#register-export` in expand.scm
 doesn't find the (probably aliased) toplevel identifier.

 {{{
 (module zzz (zap)
   (import scheme chicken)

   (define-syntax (zap x r c)
     `(,(r 'define) ,(r (string->symbol (string-append "make-"
 (symbol->string (cadr x)))))
       99)))

 (module foo (make-graphics)
   (import scheme chicken zzz)
   ; adding "(define make-graphics)" would make this example work
   (zap graphics)
 )
 }}}

-- 
Ticket URL: <http://www.irp.oist.jp/trac/chicken/ticket/83>
Chicken Scheme <http://www.call-with-current-continuation.org/>
Chicken Scheme is a compiler for the Scheme programming language.