conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* Fixed a problem in the expander that caused libraries that are 

expanded from the repl to dump all their bindings into the top
  level as well.
This commit is contained in:
Abdulaziz Ghuloum 2007-11-14 13:54:54 -05:00
parent 79c31416cf
commit 6c1dbba3de
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
scheme/psyntax.expander.ss
View File

@ -3083,6 +3083,7 @@
(define core-library-expander
(lambda (e)
(parameterize ([interaction-library #f])
(let-values (((name* exp* imp* b*) (parse-library e)))
(let-values (((name ver) (parse-library-name name*)))
(let-values (((imp* invoke-req* visit-req* invoke-code
@ -3090,7 +3091,7 @@
(library-body-expander exp* imp* b* #f)))
(values name ver imp* invoke-req* visit-req*
invoke-code visit-code export-subst
export-env))))))
export-env)))))))
(define (parse-top-level-program e*)
(syntax-match e* ()