From 1becc8b95bdd8156e3851b7d3a018778c4deda37 Mon Sep 17 00:00:00 2001 From: Robby Findler 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 original commit: 54d556b368e7e10e8d5c2904e8ee02d30fb95dfb --- collects/framework/splash.rkt | 9 +-------- 1 file changed, 1 insertion(+), 8 deletions(-) diff --git a/collects/framework/splash.rkt b/collects/framework/splash.rkt index 6d778f6e..b33fc09f 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%