From 54d556b368e7e10e8d5c2904e8ee02d30fb95dfb Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sat, 22 Jan 2011 16:03:03 -0600
Subject: [PATCH] adjusted PLTDRCM in trace mode to use the log-info printouts
 instead of manager-trace-handler

---
 collects/drracket/drracket.rkt | 15 +++++++++++----
 collects/framework/splash.rkt  |  9 +--------
 2 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/collects/drracket/drracket.rkt b/collects/drracket/drracket.rkt
index 14d41613f7..c42efec3b1 100644
--- a/collects/drracket/drracket.rkt
+++ b/collects/drracket/drracket.rkt
@@ -51,10 +51,17 @@
     (current-load/use-compiled (make-compilation-manager-load/use-compiled-handler))
     (when cm-trace?
       (flprintf "PLTDRCM: enabling CM tracing\n")
-      (manager-trace-handler
-       (λ (x) 
-         (when (regexp-match #rx"compiling" x)
-           (display "1: ") (display x) (newline) (flush-output)))))))
+      (let ([evt (make-log-receiver (current-logger) 'info)])
+        (void
+         (thread
+          (λ ()
+            (let loop ()
+              (define vec (sync evt))
+              (define str (vector-ref vec 1))
+              (when (regexp-match #rx"^cm: *compil(ing|ed)" str)
+                (display str)
+                (newline))
+              (loop)))))))))
 
 (when profiling?
   (flprintf "PLTDRPROFILE: installing profiler\n")
diff --git a/collects/framework/splash.rkt b/collects/framework/splash.rkt
index 6d778f6e2b..b33fc09fa5 100644
--- a/collects/framework/splash.rkt
+++ b/collects/framework/splash.rkt
@@ -251,14 +251,7 @@
   (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")
-    (current-load/use-compiled (make-compilation-manager-load/use-compiled-handler))
-    (when (or (equal? (getenv "PLTDRCM") "trace")
-              (equal? (getenv "PLTDRDEBUG") "trace"))
-      (printf "PLTDRCM/PLTDRDEBUG: reinstalling CM trace handler after setting splash load handler\n")
-      (manager-trace-handler
-       (λ (x) 
-         (when (regexp-match #rx"compiling:|end compile:" x)
-           (display "2: ") (display x) (newline)))))))
+    (current-load/use-compiled (make-compilation-manager-load/use-compiled-handler))))
 
 (define funny-gauge%
   (class canvas%