36 lines
750 B
Scheme
36 lines
750 B
Scheme
; (require-library "errortrace.ss" "errortrace")
|
|
; (error-print-width 80)
|
|
#|
|
|
TODO:
|
|
* demonstrate setup-plt launcher
|
|
* manuals as `doc' sub-collections?
|
|
|#
|
|
|
|
|
|
(require-relative-library "sig.ss")
|
|
|
|
(require-library "file.ss")
|
|
(require-library "functio.ss")
|
|
(require-library "string.ss")
|
|
|
|
(require-library "url.ss" "net")
|
|
|
|
(define startup-url
|
|
(string-append "file:"
|
|
(with-handlers ([void
|
|
(lambda (x)
|
|
(build-path (collection-path "help") "index.htm"))])
|
|
(let ([f (build-path (collection-path "doc") "help" "index.html")])
|
|
(if (file-exists? f)
|
|
f
|
|
(error "not there"))))))
|
|
|
|
(invoke-unit/sig
|
|
(require-relative-library "helpr.ss")
|
|
help:option^
|
|
mzlib:function^
|
|
mzlib:string^
|
|
mzlib:file^
|
|
mzlib:url^
|
|
mred^)
|