From ef7651c2121bd3b9c5d6e5186542e55b767dc755 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 28 Nov 1998 03:52:27 +0000
Subject: [PATCH] .

original commit: 2cf13c160ca5ebc7837529431d1fcb9e89fc61d9
---
 collects/help/help.ss | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/collects/help/help.ss b/collects/help/help.ss
index c44bf7e3..71bf695e 100644
--- a/collects/help/help.ss
+++ b/collects/help/help.ss
@@ -1,16 +1,12 @@
 
 #|
  TODO:
-   * starting location as option
-   * define a max hit count
-
-   * setup-plt launcher
+   * demonstrate setup-plt launcher
 
    * manuals as `doc' sub-collections?
    * doc.txt in sub-collections?
 
    * document help system
-   * keywordize and index existing doc.txt files
 |#
 
 
@@ -22,8 +18,12 @@
 
 (require-library "url.ss" "net")
 
+(define startup-url 
+  (string-append "file:" (build-path (collection-path "doc") "index.htm")))
+
 (invoke-unit/sig
  (require-relative-library "helpr.ss")
+ help:option^
  mzlib:function^
  mzlib:string^
  mzlib:file^