suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

when runtime errors occur, still install namespace

Browse Source 
svn: r5839
This commit is contained in:
Robby Findler 2007-03-27 22:26:37 +00:00
parent ca7fada621
commit 8296a6a78c
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/drscheme/private/module-language.ss
View File

@ -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.