artificially constructed identifiers are not recognized as exports

[felix winkelmann]

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)
)

[felix winkelmann]

Mot doing the rename of the identifier appears to solve this issue.

[(none)]

Milestone 4.3.0 deleted