...

original commit: 540924904c0f2a72cfa37821b74b9dbff5192eab

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))

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