From 6c1dbba3de7cd4d367dd8bb7cfbe157931268b44 Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum Date: Wed, 14 Nov 2007 13:54:54 -0500 Subject: [PATCH] * 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. --- scheme/psyntax.expander.ss | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/scheme/psyntax.expander.ss b/scheme/psyntax.expander.ss index b778afa..4b4ae81 100644 --- a/scheme/psyntax.expander.ss +++ b/scheme/psyntax.expander.ss @@ -3083,14 +3083,15 @@ (define core-library-expander (lambda (e) - (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 - visit-code export-subst export-env) - (library-body-expander exp* imp* b* #f))) - (values name ver imp* invoke-req* visit-req* - invoke-code visit-code export-subst - export-env)))))) + (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 + visit-code export-subst export-env) + (library-body-expander exp* imp* b* #f))) + (values name ver imp* invoke-req* visit-req* + invoke-code visit-code export-subst + export-env))))))) (define (parse-top-level-program e*) (syntax-match e* ()