* fixed a bug in module expander that allowed a module to export any

identifier bound in scope, even if not defined inside the module body.
2007-10-10 12:46:48 -04:00 · 2007-10-10 12:46:48 -04:00 · cc04411d97
parent 7f2aa4f2f9
commit cc04411d97
2 changed files with 3 additions and 1 deletions
--- a/src/ikarus.boot
+++ b/src/ikarus.boot
--- a/src/psyntax.expander.ss
+++ b/src/psyntax.expander.ss
@ -2155,7 +2155,9 @@
                        (chi-body* e* r mr lex* rhs* mod** kwd* rib #f)))
              (let ((exp-lab*
                     (map (lambda (x)
-                             (or (id->label (add-subst rib x))
+                             (or (id->label 
+                                   (mkstx (id->sym x) (stx-mark* x)
+                                     (list rib)))
                                 (stx-error x "cannot find module export")))
                          exp-id*))
                    (mod** (cons e* mod**)))