From 7e7a86c3ceef0ce3bcc7fc061179a360e7a87d8c Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sat, 11 Dec 2010 20:48:13 -0600
Subject: [PATCH] only show the compiling messages when PLTDRCM is trace

original commit: 3424e1b1df543c6a7f27640734d6fdf6ff71b4ff
---
 collects/framework/splash.rkt | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/collects/framework/splash.rkt b/collects/framework/splash.rkt
index 3edea6e3..016b149a 100644
--- a/collects/framework/splash.rkt
+++ b/collects/framework/splash.rkt
@@ -220,7 +220,9 @@
               (equal? (getenv "PLTDRDEBUG") "trace"))
       (printf "PLTDRCM/PLTDRDEBUG: reinstalling CM trace handler after setting splash load handler\n")
       (manager-trace-handler
-       (λ (x) (display "2: ") (display x) (newline))))))
+       (λ (x) 
+         (when (regexp-match #rx"compiling" x)
+           (display "2: ") (display x) (newline)))))))
 
 (define funny-gauge%
   (class canvas%