From ab746195bc43794d5b069b97b2aecf2d5a519d11 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 27 Feb 2003 00:55:36 +0000 Subject: [PATCH] .. original commit: d68e62bcde7179cb26d5176bbfe522a6220fb1af --- collects/framework/splash.ss | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/collects/framework/splash.ss b/collects/framework/splash.ss index 4c170b33..11140915 100644 --- a/collects/framework/splash.ss +++ b/collects/framework/splash.ss @@ -98,24 +98,21 @@ (send gauge set-value splash-current-width)) (old-load f expected))) - (printf "one\n") (let ([addl-load-handler (and (not (getenv "PLTDRDEBUG")) (getenv "PLTDRCM") (dynamic-require '(lib "cm.ss") 'make-compilation-manager-load/use-compiled-handler))]) - (printf "two\n") (current-load (let ([old-load (current-load)]) (lambda (f expected) (splash-load-handler old-load f expected)))) - (printf "three\n") + ;; abstraction breaking -- matthew will change cm ;; so that I don't need this here. (when addl-load-handler (printf "PLTDRCM: reinstalling CM load handler after setting splash load handler\n") - (current-load/use-compiled (addl-load-handler))) - (printf "four\n")) + (current-load/use-compiled (addl-load-handler)))) (define funny-gauge% (class canvas%