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

allowing MrED primitives

Browse Source 
svn: r2645
This commit is contained in:
Jay McCarthy 2006-04-08 20:45:30 +00:00
parent 096b38ed33
commit 6d3560f757
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/web-server/configuration.ss
View File

@ -107,7 +107,8 @@
;; allow people (SamTH) to use MrEd primitives from servlets. ;; allow people (SamTH) to use MrEd primitives from servlets.
;; GregP: putting mred.ss here is a bad idea because it will cause ;; GregP: putting mred.ss here is a bad idea because it will cause
;; web-server-text to have a dependency on mred ;; web-server-text to have a dependency on mred
;(lib "mred.ss" "mred") ;; JM: We get around it by only doing it if the module is already attached.
(lib "mred.ss" "mred")
(lib "servlet.ss" "web-server"))) (lib "servlet.ss" "web-server")))
@ -134,7 +135,9 @@
(let ([server-namespace (current-namespace)] (let ([server-namespace (current-namespace)]
[new-namespace (make-namespace)]) [new-namespace (make-namespace)])
(parameterize ([current-namespace new-namespace]) (parameterize ([current-namespace new-namespace])
(for-each (lambda (name) (namespace-attach-module server-namespace name)) (for-each (lambda (name)
(with-handlers ([exn? void])
(namespace-attach-module server-namespace name)))
to-be-copied-module-names) to-be-copied-module-names)
new-namespace))) new-namespace)))