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

added order-of-magnitude from Jos Koot and some tests for other scheme/math stuff

Browse Source 
svn: r16607

original commit: 667e967085dc996fc026a93c833f91933c8e0660
This commit is contained in:
Robby Findler 2009-11-07 14:26:39 +00:00
parent 89aac20bd9
commit e6f4b091b3
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.ss
View File

@ -200,6 +200,7 @@
(if (or (getenv "PLTDRCM")
(getenv "PLTDRDEBUG"))
(parameterize ([current-namespace (make-base-namespace)])
(printf "hello?\n")
(values
(dynamic-require 'compiler/cm 'make-compilation-manager-load/use-compiled-handler)
(dynamic-require 'compiler/cm 'manager-trace-handler)))
@ -209,7 +210,8 @@
(let ([old-load (current-load)])
(λ (f expected)
(splash-load-handler old-load f expected))))
(printf ">> ~s\n" (list make-compilation-manager-load/use-compiled-handler
manager-trace-handler))
(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")