From 2a26dc1d27300b2a12f5a84077b3a77e3f9dbcac Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Wed, 24 Feb 1999 05:51:40 +0000
Subject: [PATCH] ...

original commit: 16655b55f32ef3632721479f95b8705ba48efba9
---
 collects/help/help.ss | 10 +---------
 1 file changed, 1 insertion(+), 9 deletions(-)

diff --git a/collects/help/help.ss b/collects/help/help.ss
index d5ab413a..4fcc1552 100644
--- 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")