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

change drracket to print the start & end compiling messages when in PLTDRCM=trace mode

Browse Source
This commit is contained in:
Robby Findler 2011-01-10 16:53:06 -06:00
parent a28ead9464
commit b823b94cda
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/drracket/drracket.rkt
View File

@ -37,7 +37,7 @@
(flprintf "PLTDRDEBUG: enabling CM tracing\n") (flprintf "PLTDRDEBUG: enabling CM tracing\n")
(manager-trace-handler (manager-trace-handler
(λ (x) (λ (x)
(when (regexp-match #rx"compiling" x) (when (regexp-match #rx"compiling:|end compile:" x)
(display "1: ") (display x) (newline) (flush-output))))))) (display "1: ") (display x) (newline) (flush-output)))))))
(when install-cm? (when install-cm?

2
collects/framework/splash.rkt
View File

@ -257,7 +257,7 @@
(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) (λ (x)
(when (regexp-match #rx"compiling" x) (when (regexp-match #rx"compiling:|end compile:" x)
(display "2: ") (display x) (newline))))))) (display "2: ") (display x) (newline)))))))
(define funny-gauge% (define funny-gauge%