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

.

Browse Source 
original commit: cc767a27657965f8d2d7908c2647e83b3b30b120
This commit is contained in:
Robby Findler 2004-06-28 17:51:48 +00:00
parent 4be0a2f1af
commit badcd3b50a
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/framework/splash.ss
View File

@ -100,8 +100,8 @@
(old-load f expected))) (old-load f expected)))
(let ([addl-load-handler (let ([addl-load-handler
(and (not (getenv "PLTDRDEBUG")) (and (or (getenv "PLTDRDEBUG")
(getenv "PLTDRCM") (getenv "PLTDRCM"))
(parameterize ([current-namespace (make-namespace)]) (parameterize ([current-namespace (make-namespace)])
(dynamic-require '(lib "cm.ss") 'make-compilation-manager-load/use-compiled-handler)))]) (dynamic-require '(lib "cm.ss") 'make-compilation-manager-load/use-compiled-handler)))])
(current-load (current-load
@ -112,7 +112,7 @@
;; abstraction breaking -- matthew will change cm ;; abstraction breaking -- matthew will change cm
;; so that I don't need this here(?). ;; so that I don't need this here(?).
(when addl-load-handler (when addl-load-handler
(printf "PLTDRCM: reinstalling CM load handler after setting splash load handler\n") (printf "PLTDRCM/PLTDRDEBUG: reinstalling CM load handler after setting splash load handler\n")
(current-load/use-compiled (addl-load-handler)))) (current-load/use-compiled (addl-load-handler))))
(define funny-gauge% (define funny-gauge%