From 9c1353a5f1858af536986cf612652f0e2a8c177b Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Tue, 18 Sep 2001 02:09:02 +0000
Subject: [PATCH] ...

original commit: a6ce24ee031d71a739a111cd2ae68d44b3745321
---
 collects/help/help.ss           |  6 +-----
 collects/help/private/search.ss | 25 +++++++++++++------------
 2 files changed, 14 insertions(+), 17 deletions(-)

diff --git a/collects/help/help.ss b/collects/help/help.ss
index 58b2512a..7fcd27e8 100644
--- a/collects/help/help.ss
+++ b/collects/help/help.ss
@@ -1,7 +1,3 @@
-(when (getenv "MREDDEBUG")
-  (current-load (let ([ol (current-load)]) (lambda (x) (printf "~a~n" x) (ol x))))
-  (eval '(require (lib "errortrace.ss" "errortrace")))
-  (error-print-width 180))
 #|
  TODO:
    * demonstrate setup-plt launcher
@@ -43,4 +39,4 @@
                                  (frame-mixin)
                                  help:doc-position^)
   
-  (new-help-frame startup-url))
\ No newline at end of file
+  (new-help-frame startup-url))
diff --git a/collects/help/private/search.ss b/collects/help/private/search.ss
index 4181e45e..d74b5a1a 100644
--- a/collects/help/private/search.ss
+++ b/collects/help/private/search.ss
@@ -1,6 +1,7 @@
 
 (module search mzscheme
-  (require (lib "unitsig.ss")
+  (require (lib "string-constant.ss" "string-constants")
+           (lib "unitsig.ss")
            "sig.ss"
            "../help-sig.ss"
            "docpos.ss"
@@ -419,15 +420,15 @@
                   files))))
            docs doc-names doc-kinds)
           (if (= 0 hit-count)
-              (apply
-               string-append
-               "Nothing found for "
-               (cond
-                 [(null? string-finds) (list "the empty search.")]
-                 [else
-                  (append
-                   (cons (format "\"~a\"" (car string-finds))
-                         (map (lambda (i) (format " and \"~a\"" i))
-                              (cdr string-finds)))
-                   (list "."))]))
+              (cond
+                [(null? string-finds) (string-constant nothing-found-for-empty-search)]
+                [else
+                 (format (string-constant nothing-found-for)
+                         (apply
+                          string-append
+                          (append
+                           (cons (format "\"~a\"" (car string-finds))
+                                 (map (lambda (i) (format " ~a \"~a\"" (string-constant and) i))
+                                      (cdr string-finds)))
+                           (list "."))))])
               #f))))))