From e6f4b091b363ec32696ef9d76c3b8dabbd9bbc1b Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 7 Nov 2009 14:26:39 +0000 Subject: [PATCH] added order-of-magnitude from Jos Koot and some tests for other scheme/math stuff svn: r16607 original commit: 667e967085dc996fc026a93c833f91933c8e0660 --- collects/framework/splash.ss | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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")