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

p8630

Browse Source 
svn: r6049
This commit is contained in:
Jay McCarthy 2007-04-26 11:37:00 +00:00
parent 3e31a16109
commit d610b78e6d
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/private/configuration.ss
View File

@ -2,6 +2,7 @@
(require (lib "unit.ss")
(lib "kw.ss")
(lib "list.ss")
(lib "etc.ss")
(lib "contract.ss"))
(require "configuration-structures.ss"
"configuration-table-structs.ss"
@ -80,7 +81,8 @@
(lambda (spec)
(if (symbol? spec)
spec
((current-module-name-resolver) spec #f #f)))])
(with-handlers ([exn? (lambda _ #f)])
((current-module-name-resolver) spec #f #f))))])
(map get-name
(append default-to-be-copied-module-specs
to-be-copied-module-specs))))
@ -91,7 +93,8 @@
(parameterize ([current-namespace new-namespace])
(for-each (lambda (name)
(with-handlers ([exn? void])
(namespace-attach-module server-namespace name)))
(when name
(namespace-attach-module server-namespace name))))
to-be-copied-module-names)
new-namespace)))