suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

only show the compiling messages when PLTDRCM is trace

Browse Source 
original commit: 3424e1b1df543c6a7f27640734d6fdf6ff71b4ff
This commit is contained in:
Robby Findler 2010-12-11 20:48:13 -06:00
parent ba3e1697fb
commit 7e7a86c3ce
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/framework/splash.rkt
View File

@ -220,7 +220,9 @@
(equal? (getenv "PLTDRDEBUG") "trace")) (equal? (getenv "PLTDRDEBUG") "trace"))
(printf "PLTDRCM/PLTDRDEBUG: reinstalling CM trace handler after setting splash load handler\n") (printf "PLTDRCM/PLTDRDEBUG: reinstalling CM trace handler after setting splash load handler\n")
(manager-trace-handler (manager-trace-handler
(λ (x) (display "2: ") (display x) (newline)))))) (λ (x)
(when (regexp-match #rx"compiling" x)
(display "2: ") (display x) (newline)))))))
(define funny-gauge% (define funny-gauge%
(class canvas% (class canvas%