suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

..

Browse Source 
original commit: 773d728d1113fa35022eb0b1ba5a73cfe853c95e
This commit is contained in:
Robby Findler 2003-12-05 23:15:31 +00:00
parent c66068df39
commit c784102b7b
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/help/help.ss
View File

@ -5,11 +5,16 @@
(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)))
(let-values ([(make-compilation-manager-load/use-compiled-handler
manager-trace-handller)
(parameterize ([current-namespace (make-namespace)])
(values
(dynamic-require '(lib "cm.ss") 'make-compilation-manager-load/use-compiled-handler)
(dynamic-require '(lib "cm.ss") 'manager-trace-handler)))])
(current-load/use-compiled (make-compilation-manager-load/use-compiled-handler))
(when cm-trace?
((dynamic-require '(lib "cm.ss") 'manager-trace-handler)
(lambda (x) (display x) (newline)))))
(manager-trace-handler
(lambda (x) (display x) (newline))))))
;; start help desk for real
(dynamic-require '(lib "help-app-main.ss" "help" "private") #f))