original commit: 3cb73b2a28bbdd036e37687202276b893390692e
This commit is contained in:
Robby Findler 2003-12-05 05:26:14 +00:00
parent 7c46778870
commit 714b9d6991

View File

@ -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