suzanne.soy/gui
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 
original commit: 54d556b368e7e10e8d5c2904e8ee02d30fb95dfb
This commit is contained in:
Robby Findler 2011-01-22 16:03:03 -06:00
parent c7a9484dee
commit 1becc8b95b
1 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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%