From 714b9d699192b8d1483a12ed2b00f1e3eef930d5 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 5 Dec 2003 05:26:14 +0000 Subject: [PATCH] .. original commit: 3cb73b2a28bbdd036e37687202276b893390692e --- collects/framework/splash.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/framework/splash.ss b/collects/framework/splash.ss index 82c7eabc..c71b54a6 100644 --- a/collects/framework/splash.ss +++ b/collects/framework/splash.ss @@ -102,13 +102,13 @@ (let ([addl-load-handler (and (not (getenv "PLTDRDEBUG")) (getenv "PLTDRCM") - (dynamic-require '(lib "cm.ss") 'make-compilation-manager-load/use-compiled-handler))]) + (parameterize ([current-namespace (make-namespace)]) + (dynamic-require '(lib "cm.ss") 'make-compilation-manager-load/use-compiled-handler)))]) (current-load (let ([old-load (current-load)]) (lambda (f expected) (splash-load-handler old-load f expected)))) - ;; abstraction breaking -- matthew will change cm ;; so that I don't need this here. (when addl-load-handler