..
original commit: d68e62bcde7179cb26d5176bbfe522a6220fb1af
This commit is contained in:
parent
703b692e5e
commit
ab746195bc
|
@ -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%
|
||||
|
|
Loading…
Reference in New Issue
Block a user