From 8296a6a78c9530e6f747fb7204ea37303365d094 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 27 Mar 2007 22:26:37 +0000 Subject: [PATCH] when runtime errors occur, still install namespace svn: r5839 --- collects/drscheme/private/module-language.ss | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/collects/drscheme/private/module-language.ss b/collects/drscheme/private/module-language.ss index 471fba9016..6bde452221 100644 --- a/collects/drscheme/private/module-language.ss +++ b/collects/drscheme/private/module-language.ss @@ -151,12 +151,14 @@ (if (eof-object? super-result) #`(begin (current-module-name-prefix #f) - (eval '(require #,(get-full-module-name))) - (eval '(current-namespace (module->namespace '#,(get-full-module-name))))) + (call-with-continuation-prompt + (λ () (eval '(require #,(get-full-module-name)))))) (raise-syntax-error 'module-language "there can only be one expression in the definitions window" super-result)))] + [(= 4 iteration-number) + #`(eval '(current-namespace (module->namespace '#,(get-full-module-name))))] [else eof])))) ;; printer settings are just ignored here.