From 4d89ae4cd04e1e5773f9fd01b2089ebfff5cd565 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sat, 7 Apr 2001 02:20:29 +0000
Subject: [PATCH] ...

original commit: 4785a9301084162bdb89ec75a4183ec0dcd5b4bd
---
 collects/help/help.ss | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/collects/help/help.ss b/collects/help/help.ss
index fd6ba0f8..0d179334 100644
--- 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))