suzanne.soy/racket
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
This commit is contained in:
Robby Findler 2010-12-11 20:48:13 -06:00
parent 4391de9ba6
commit 3424e1b1df
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/drracket/drracket.rkt
View File

@ -36,7 +36,9 @@
(when cm-trace?
(flprintf "PLTDRDEBUG: enabling CM tracing\n")
(manager-trace-handler
(λ (x) (display "1: ") (display x) (newline) (flush-output))))))
(λ (x)
(when (regexp-match #rx"compiling" x)
(display "1: ") (display x) (newline) (flush-output)))))))
(when install-cm?
(flprintf "PLTDRCM: installing compilation manager\n")
@ -50,7 +52,9 @@
(when cm-trace?
(flprintf "PLTDRCM: enabling CM tracing\n")
(manager-trace-handler
(λ (x) (display "1: ") (display x) (newline) (flush-output))))))
(λ (x)
(when (regexp-match #rx"compiling" x)
(display "1: ") (display x) (newline) (flush-output)))))))
(when profiling?
(flprintf "PLTDRPROFILE: installing profiler\n")

4
collects/framework/splash.rkt
View File

@ -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%