From ffaadf6a318aae9204ce3c01911493c2d7e0ef10 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 16 Jun 2008 12:49:09 +0000 Subject: [PATCH] adjusted test for the hopeless repl svn: r10281 --- collects/drscheme/private/module-language.ss | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/drscheme/private/module-language.ss b/collects/drscheme/private/module-language.ss index 03b6063c03..a51bd03f05 100644 --- a/collects/drscheme/private/module-language.ss +++ b/collects/drscheme/private/module-language.ss @@ -174,7 +174,6 @@ "there can only be one expression in the definitions window" super-result)))] [(= 4 iteration-number) - (thread-cell-set! hopeless-repl #f) (if path #`(#%app current-namespace (#%app @@ -429,6 +428,7 @@ (update-buttons)])) ;; transform-module : (union #f string) syntax syntax -> (values symbol[name-of-module] syntax[module]) + ;; = User = ;; in addition to exporting everything, the result module's name ;; is the fully path-expanded name with a directory prefix, ;; if the file has been saved @@ -442,6 +442,7 @@ (check-filename-matches filename (syntax->datum (syntax name)) stx)) + (thread-cell-set! hopeless-repl #f) (values v-name ;; rewrite the module to use the scheme/base version of `module' (datum->syntax stx