oops committed a bogus change, so rolling it back
svn: r16608
This commit is contained in:
parent
667e967085
commit
ab78a3ec0c
|
@ -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")
|
||||||
|
|
Loading…
Reference in New Issue
Block a user