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

oops committed a bogus change, so rolling it back

Browse Source 
svn: r16608
This commit is contained in:
Robby Findler 2009-11-07 14:27:52 +00:00
parent 667e967085
commit ab78a3ec0c
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/framework/splash.ss
View File

@ -200,7 +200,6 @@
(if (or (getenv "PLTDRCM") (if (or (getenv "PLTDRCM")
(getenv "PLTDRDEBUG")) (getenv "PLTDRDEBUG"))
(parameterize ([current-namespace (make-base-namespace)]) (parameterize ([current-namespace (make-base-namespace)])
(printf "hello?\n")
(values (values
(dynamic-require 'compiler/cm 'make-compilation-manager-load/use-compiled-handler) (dynamic-require 'compiler/cm 'make-compilation-manager-load/use-compiled-handler)
(dynamic-require 'compiler/cm 'manager-trace-handler))) (dynamic-require 'compiler/cm 'manager-trace-handler)))
@ -210,8 +209,7 @@
(let ([old-load (current-load)]) (let ([old-load (current-load)])
(λ (f expected) (λ (f expected)
(splash-load-handler old-load f expected)))) (splash-load-handler old-load f expected))))
(printf ">> ~s\n" (list make-compilation-manager-load/use-compiled-handler
manager-trace-handler))
(when (and make-compilation-manager-load/use-compiled-handler (when (and make-compilation-manager-load/use-compiled-handler
manager-trace-handler) manager-trace-handler)
(printf "PLTDRCM/PLTDRDEBUG: reinstalling CM load handler after setting splash load handler\n") (printf "PLTDRCM/PLTDRDEBUG: reinstalling CM load handler after setting splash load handler\n")