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

..

Browse Source 
original commit: 3cb73b2a28bbdd036e37687202276b893390692e
This commit is contained in:
Robby Findler 2003-12-05 05:26:14 +00:00
parent 7c46778870
commit 714b9d6991
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/framework/splash.ss
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