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

adjusted PLTDRCM in trace mode to use the log-info printouts instead of manager-trace-handler

Browse Source
This commit is contained in:
Robby Findler 2011-01-22 16:03:03 -06:00
parent 23012928a6
commit 54d556b368
2 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
collects/drracket/drracket.rkt
View File

@ -51,10 +51,17 @@
(current-load/use-compiled (make-compilation-manager-load/use-compiled-handler))
(when cm-trace?
(flprintf "PLTDRCM: enabling CM tracing\n")
(manager-trace-handler
(λ (x)
(when (regexp-match #rx"compiling" x)
(display "1: ") (display x) (newline) (flush-output)))))))
(let ([evt (make-log-receiver (current-logger) 'info)])
(void
(thread
(λ ()
(let loop ()
(define vec (sync evt))
(define str (vector-ref vec 1))
(when (regexp-match #rx"^cm: *compil(ing|ed)" str)
(display str)
(newline))
(loop)))))))))
(when profiling?
(flprintf "PLTDRPROFILE: installing profiler\n")

9
collects/framework/splash.rkt
View File

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