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

refactoring

Browse Source 
svn: r13353
This commit is contained in:
Jay McCarthy 2009-02-02 17:52:34 +00:00
parent 0c60212360
commit fad5306278
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/web-server/configuration/namespace.ss
View File

@ -1,6 +1,10 @@
#lang scheme
(require scheme/runtime-path)
(define default-to-be-copied-module-specs '(mzscheme mred))
(define mzscheme-module-spec 'mzscheme)
(define mred-module-spec 'mred)
(define default-to-be-copied-module-specs (list mzscheme-module-spec mred-module-spec))
(define (make-make-servlet-namespace
#:to-be-copied-module-specs [to-be-copied-module-specs empty])
@ -19,7 +23,8 @@
(define new-namespace (make-base-empty-namespace))
(define additional-names (map get-name additional-specs))
(parameterize ([current-namespace new-namespace])
(namespace-require 'scheme/base)
(define scheme/base-module-spec 'scheme/base)
(namespace-require scheme/base-module-spec)
(for-each (lambda (name)
(with-handlers ([exn? void])
(when name