..
original commit: 3cb73b2a28bbdd036e37687202276b893390692e
This commit is contained in:
parent
7c46778870
commit
714b9d6991
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue
Block a user