diff --git a/collects/framework/splash.ss b/collects/framework/splash.ss index bc0eca24..bcf272ad 100644 --- a/collects/framework/splash.ss +++ b/collects/framework/splash.ss @@ -200,6 +200,7 @@ (if (or (getenv "PLTDRCM") (getenv "PLTDRDEBUG")) (parameterize ([current-namespace (make-base-namespace)]) + (printf "hello?\n") (values (dynamic-require 'compiler/cm 'make-compilation-manager-load/use-compiled-handler) (dynamic-require 'compiler/cm 'manager-trace-handler))) @@ -209,7 +210,8 @@ (let ([old-load (current-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 manager-trace-handler) (printf "PLTDRCM/PLTDRDEBUG: reinstalling CM load handler after setting splash load handler\n")