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

commit 4d89ae4cd04e1e5773f9fd01b2089ebfff5cd565
parent 6c4dd3e1b700bb099d52b9228b775be398da63fc
Author: Robby Findler <robby@racket-lang.org>
Date:   Sat,  7 Apr 2001 02:20:29 +0000

...

original commit: 4785a9301084162bdb89ec75a4183ec0dcd5b4bd

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

1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/collects/help/help.ss b/collects/help/help.ss
@@ -1,6 +1,6 @@
 (when (getenv "MREDDEBUG")
   (current-load (let ([ol (current-load)]) (lambda (x) (printf "~a~n" x) (ol x))))
-  (require-library "errortrace.ss" "errortrace")
+  (eval '(require "errortrace.ss" "errortrace"))
   (error-print-width 180))
 #|
  TODO:
@@ -19,7 +19,8 @@
            "startup-url.ss"
            (lib "framework.ss" "framework")
            (lib "plt-installer.ss" "setup")
-           (lib "get-info.ss" "setup"))
+           (lib "get-info.ss" "setup")
+           "help-unit.ss")
   
   (define-values/invoke-unit/sig
    help:get-info^
@@ -44,13 +45,13 @@
    (lambda (x) (and (number? x) (exact? x) (= x (floor x)))))
 
   (define-values/invoke-unit/sig help:help^
-                                 (require-relative-library "helpr.ss")
+                                 help-unit@
                                  #f
                                  setup:plt-installer^
                                  mred^
                                  framework^
                                  (frame-mixin)
                                  help:doc-position^)
-
+  
   (new-help-frame startup-url))