commit 1ce1ea870acc81fab807f6a301e7fa0958ca81d3 parent 47ec3f28acb91e5a81c08cff51ac7bf97d09b178 Author: Matthew Flatt <mflatt@racket-lang.org> Date: Mon, 22 Feb 1999 03:26:36 +0000 . original commit: a4a55158e53e53aeabe8890d1c1a1216dffbfcc8 Diffstat:
| M | collects/help/help.ss | | | 9 | ++++++++- |
1 file changed, 8 insertions(+), 1 deletion(-)
diff --git a/collects/help/help.ss b/collects/help/help.ss @@ -16,7 +16,14 @@ (require-library "url.ss" "net") (define startup-url - (string-append "file:" (build-path (collection-path "helpdoc") "helpdesk.html"))) + (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")