22 lines
433 B
Scheme
22 lines
433 B
Scheme
(module help mzscheme
|
|
(require (lib "cmdline.ss")
|
|
"private/server.ss"
|
|
"private/browser.ss")
|
|
|
|
(define remote-connections? #f)
|
|
(define iconize? #f)
|
|
(define quiet? #f)
|
|
|
|
(command-line
|
|
"help-desk"
|
|
(current-command-line-arguments))
|
|
|
|
(define hd-cookie (start-help-server (lambda (x) x)))
|
|
(unless hd-cookie
|
|
(printf "Help Desk: could not start server\n")
|
|
(exit -1))
|
|
|
|
(help-desk-browser hd-cookie))
|
|
|
|
|