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

commit b185c3e8f6c7ee425c390610957d136b2c437d57
parent 3fd94648db63cbb6487e0797e59e8509495e3562
Author: Robby Findler <robby@racket-lang.org>
Date:   Tue, 10 Apr 2001 20:30:05 +0000

...

original commit: 540924904c0f2a72cfa37821b74b9dbff5192eab

Diffstat:
M
collects/help/help.ss
 | 
21
+++++++++++----------
M
collects/help/private/search.ss
 | 
3
+--

2 files changed, 12 insertions(+), 12 deletions(-)
diff --git a/collects/help/help.ss b/collects/help/help.ss
@@ -9,15 +9,17 @@
 |#
 
 (module help mzscheme 
-  (require "startup-url.ss"
-           (lib "framework.ss" "framework")
+  (require (lib "class.ss")
+           (lib "unitsig.ss")
+           "startup-url.ss"
            "help-unit.ss"
            "help-sig.ss"
+           (lib "framework.ss" "framework")
+           (lib "framework-sig.ss" "framework")
            (lib "plt-installer.ss" "setup")
-           (lib "getinfo.ss" "setup")
-           (lib "mred.ss"))
-  
-  (provide-signature-elements help^)
+           (lib "plt-installer-sig.ss" "setup")
+           (lib "mred-sig.ss" "mred")
+           (lib "mred.ss" "mred"))
   
   (define frame-mixin values)
   (define (user-defined-doc-position x) #f)
@@ -33,14 +35,12 @@
    (lambda (x) (and (number? x) (exact? x) (= x (floor x)))))
 
   (define-values/invoke-unit/sig help^
-                                 help-unit@
+                                 help@
                                  #f
                                  setup:plt-installer^
-                                 setup:get-info^
                                  mred^
                                  framework^
                                  (frame-mixin)
                                  help:doc-position^)
   
-  (new-help-frame startup-url))
-
+  (new-help-frame startup-url))
+\ No newline at end of file
diff --git a/collects/help/private/search.ss b/collects/help/private/search.ss
@@ -4,6 +4,7 @@
            "sig.ss"
            "../help-sig.ss"
            "docpos.ss"
+           "colldocs.ss"
            (lib "list.ss"))
   
   (provide search@)
@@ -28,8 +29,6 @@
       ; doc-collection-date : ??
       (define doc-collection-date #f)
       
-      (define colldocs (require-library "colldocs.ss" "help"))
-      
       (define re:title (regexp "<[tT][iI][tT][lL][eE]>(.*)</[tT][iI][tT][lL][eE]>"))
       
       ; get-std-doc-title : string -> string