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

...

Browse Source 
original commit: 16655b55f32ef3632721479f95b8705ba48efba9
This commit is contained in:
Robby Findler 1999-02-24 05:51:40 +00:00
parent 1ce1ea870a
commit 2a26dc1d27
1 changed files with 1 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/help/help.ss
View File

@ -15,15 +15,7 @@
(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"))))))
(require-library "startup-url.ss" "help")
(invoke-unit/sig
(require-relative-library "helpr.ss")