From d610b78e6d36eea5f394771f8269f0fa27b233a5 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Thu, 26 Apr 2007 11:37:00 +0000 Subject: [PATCH] p8630 svn: r6049 --- collects/web-server/private/configuration.ss | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/collects/web-server/private/configuration.ss b/collects/web-server/private/configuration.ss index 301bab1cf7..0782056998 100644 --- a/collects/web-server/private/configuration.ss +++ b/collects/web-server/private/configuration.ss @@ -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)))