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

simplified code by separating two steps instead of one

Browse Source 
svn: r10298
This commit is contained in:
Eli Barzilay 2008-06-16 19:25:28 +00:00
parent cb410d1f87
commit 6b940c07de
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -149,20 +149,20 @@
[(3)
(let ([super-result (super-thunk)])
(if (eof-object? super-result)
#`(begin
(current-module-declare-name #f)
#,(if path
#`(begin
((current-module-name-resolver) (make-resolved-module-path #,path))
(call-with-continuation-prompt
(λ () (dynamic-require #,path #f))))
#`(call-with-continuation-prompt
(λ () (dynamic-require ''#,(get-require-module-name) #f)))))
#`(current-module-declare-name #f)
(raise-syntax-error
'module-language
"there can only be one expression in the definitions window"
super-result)))]
[(4)
(if path
#`(begin ((current-module-name-resolver)
(make-resolved-module-path #,path))
(call-with-continuation-prompt
(λ () (dynamic-require #,path #f))))
#`(call-with-continuation-prompt
(λ () (dynamic-require ''#,(get-require-module-name) #f))))]
[(5)
(if path
#`(#%app current-namespace (#%app module->namespace #,path))
#`(#%app current-namespace