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

..

Browse Source 
original commit: b158c48ac28755eb101b8395edc7b41da8e97931
This commit is contained in:
Robby Findler 2003-03-30 01:32:01 +00:00
parent 29c68db07d
commit bb58e25a7a
1 changed files with 14 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
collects/help/help.ss
View File

@ -1,21 +1,15 @@
(module help mzscheme (module help mzscheme
(require (lib "cmdline.ss") (define cm-env-var "PLTHDCM")
"private/server.ss" (define install-cm? (getenv cm-env-var))
"private/browser.ss") (define cm-trace? (and install-cm? (equal? (getenv cm-env-var) "trace")))
(define remote-connections? #f)
(define iconize? #f)
(define quiet? #f)
(command-line (when install-cm?
"help-desk" (printf "~a: installing compilation manager\n" cm-env-var)
(current-command-line-arguments)) (current-load/use-compiled
((dynamic-require '(lib "cm.ss") 'make-compilation-manager-load/use-compiled-handler)))
(define hd-cookie (start-help-server (lambda (x) x))) (when cm-trace?
(unless hd-cookie ((dynamic-require '(lib "cm.ss") 'manager-trace-handler)
(printf "Help Desk: could not start server\n") (lambda (x) (display x) (newline)))))
(exit -1))
;; start help desk for real
(help-desk-browser hd-cookie)) (dynamic-require '(lib "help-app-main.ss" "help" "private") #f))