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

17
scheme/psyntax.expander.ss
View File

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