15 lines
610 B
Scheme
15 lines
610 B
Scheme
(module help mzscheme
|
|
(define cm-env-var "PLTHDCM")
|
|
(define install-cm? (getenv cm-env-var))
|
|
(define cm-trace? (and install-cm? (equal? (getenv cm-env-var) "trace")))
|
|
|
|
(when install-cm?
|
|
(printf "~a: installing compilation manager\n" cm-env-var)
|
|
(current-load/use-compiled
|
|
((dynamic-require '(lib "cm.ss") 'make-compilation-manager-load/use-compiled-handler)))
|
|
(when cm-trace?
|
|
((dynamic-require '(lib "cm.ss") 'manager-trace-handler)
|
|
(lambda (x) (display x) (newline)))))
|
|
|
|
;; start help desk for real
|
|
(dynamic-require '(lib "help-app-main.ss" "help" "private") #f)) |