commit 2a26dc1d27300b2a12f5a84077b3a77e3f9dbcac parent 1ce1ea870acc81fab807f6a301e7fa0958ca81d3 Author: Robby Findler <robby@racket-lang.org> Date: Wed, 24 Feb 1999 05:51:40 +0000 ... original commit: 16655b55f32ef3632721479f95b8705ba48efba9 Diffstat:
| M | collects/help/help.ss | | | 10 | +--------- |
1 file changed, 1 insertion(+), 9 deletions(-)
diff --git a/collects/help/help.ss b/collects/help/help.ss @@ -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")