* 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.
This commit is contained in:
Abdulaziz Ghuloum 2007-10-10 12:46:48 -04:00
parent 7f2aa4f2f9
commit cc04411d97
2 changed files with 3 additions and 1 deletions

Binary file not shown.

View File

@ -2155,7 +2155,9 @@
(chi-body* e* r mr lex* rhs* mod** kwd* rib #f))) (chi-body* e* r mr lex* rhs* mod** kwd* rib #f)))
(let ((exp-lab* (let ((exp-lab*
(map (lambda (x) (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"))) (stx-error x "cannot find module export")))
exp-id*)) exp-id*))
(mod** (cons e* mod**))) (mod** (cons e* mod**)))