original commit: d68e62bcde7179cb26d5176bbfe522a6220fb1af
This commit is contained in:
Robby Findler 2003-02-27 00:55:36 +00:00
parent 703b692e5e
commit ab746195bc

View File

@ -98,24 +98,21 @@
(send gauge set-value splash-current-width))
(old-load f expected)))
(printf "one\n")
(let ([addl-load-handler
(and (not (getenv "PLTDRDEBUG"))
(getenv "PLTDRCM")
(dynamic-require '(lib "cm.ss") 'make-compilation-manager-load/use-compiled-handler))])
(printf "two\n")
(current-load
(let ([old-load (current-load)])
(lambda (f expected)
(splash-load-handler old-load f expected))))
(printf "three\n")
;; abstraction breaking -- matthew will change cm
;; so that I don't need this here.
(when addl-load-handler
(printf "PLTDRCM: reinstalling CM load handler after setting splash load handler\n")
(current-load/use-compiled (addl-load-handler)))
(printf "four\n"))
(current-load/use-compiled (addl-load-handler))))
(define funny-gauge%
(class canvas%