From 6c4dd3e1b700bb099d52b9228b775be398da63fc Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Fri, 6 Apr 2001 19:08:38 +0000
Subject: [PATCH] no message

original commit: c11f723e27f4113bf50ae7caaf1c8ac0733d050c
---
 collects/help/help.ss | 92 +++++++++++++++++++------------------------
 1 file changed, 40 insertions(+), 52 deletions(-)

diff --git a/collects/help/help.ss b/collects/help/help.ss
index 6c1c49f5..fd6ba0f8 100644
--- a/collects/help/help.ss
+++ b/collects/help/help.ss
@@ -9,60 +9,48 @@
 |#
 
 
-(require-relative-library "sig.ss")
+(module help mzscheme 
+  (require "sig.ss"
+           (lib "get-info.ss" "setup")
+           (lib "file.ss")
+           (lib "list.ss")
+           (lib "string.ss")
+           (lib "url.ss" "net")
+           "startup-url.ss"
+           (lib "framework.ss" "framework")
+           (lib "plt-installer.ss" "setup")
+           (lib "get-info.ss" "setup"))
+  
+  (define-values/invoke-unit/sig
+   help:get-info^
+   (unit/sig help:get-info^
+     (import)
+     
+     (define (get-language-level)
+       'unknown)
+     (define (get-teachpack-names)
+       'unknown))
+   drscheme:export:help-info)
 
-(require-library "get-info.ss" "setup")
+  (define frame-mixin values)
+  (define (user-defined-doc-position x) #f)
 
-(require-library "file.ss")
-(require-library "functio.ss")
-(require-library "string.ss")
+  (preferences:set-default
+   'drscheme:font-size
+   (send (send (send (make-object text%) 
+                     get-style-list)
+               basic-style)
+         get-size)
+   (lambda (x) (and (number? x) (exact? x) (= x (floor x)))))
 
-(require-library "url.ss" "net")
+  (define-values/invoke-unit/sig help:help^
+                                 (require-relative-library "helpr.ss")
+                                 #f
+                                 setup:plt-installer^
+                                 mred^
+                                 framework^
+                                 (frame-mixin)
+                                 help:doc-position^)
 
-(require-library "startup-url.ss" "help")
+  (new-help-frame startup-url))
 
-(require-library "framework.ss" "framework")
-
-(require-library "plt-installer.ss" "setup")
-(require-library "get-info.ss" "setup")
-
-(begin-elaboration-time
- (require-library "invoke.ss"))
-
-(define-values/invoke-unit/sig
- help:get-info^
- (unit/sig help:get-info^
-   (import)
-   
-   (define (get-language-level)
-     'unknown)
-   (define (get-teachpack-names)
-     'unknown))
- drscheme:export:help-info)
-
-(define frame-mixin values)
-(define (user-defined-doc-position x) #f)
-
-(preferences:set-default
- 'drscheme:font-size
- (send (send (send (make-object text%) 
-		   get-style-list)
-	     basic-style)
-       get-size)
- (lambda (x) (and (number? x) (exact? x) (= x (floor x)))))
-
-(define-values/invoke-unit/sig help:help^
-  (require-relative-library "helpr.ss")
-  #f
-  mzlib:function^
-  mzlib:string^
-  mzlib:file^
-  mzlib:url^
-  setup:plt-installer^
-  setup:info^
-  mred^
-  framework^
-  (frame-mixin)
-  help:doc-position^)
-
-(new-help-frame startup-url)