bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit ef7651c2121bd3b9c5d6e5186542e55b767dc755
parent baa58bce5978e3b7b2e84d925162bcd4e740b420
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Sat, 28 Nov 1998 03:52:27 +0000

.

original commit: 2cf13c160ca5ebc7837529431d1fcb9e89fc61d9

Diffstat:
M
collects/help/help.ss
 | 
10
+++++-----

1 file changed, 5 insertions(+), 5 deletions(-)
diff --git 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^