From 703b692e5e1ec411c14a705b464f3b4380add026 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Wed, 26 Feb 2003 04:01:32 +0000
Subject: [PATCH] ..

original commit: 9bef5ce3f5ab3abca4140ac001f6019b3f639e34
---
 collects/framework/splash.ss | 22 ++++++++++++++++++----
 1 file changed, 18 insertions(+), 4 deletions(-)

diff --git a/collects/framework/splash.ss b/collects/framework/splash.ss
index 37c4c308..4c170b33 100644
--- a/collects/framework/splash.ss
+++ b/collects/framework/splash.ss
@@ -98,10 +98,24 @@
          (send gauge set-value splash-current-width))
        (old-load f expected)))
   
-  (current-load
-   (let ([old-load (current-load)])
-     (lambda (f expected)
-       (splash-load-handler 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"))
   
   (define funny-gauge%
     (class canvas%