...

original commit: a6ce24ee031d71a739a111cd2ae68d44b3745321

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

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)
+              (cond
+                [(null? string-finds) (string-constant nothing-found-for-empty-search)]
+                [else
+                 (format (string-constant nothing-found-for)
                          (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))
+                                 (map (lambda (i) (format " ~a \"~a\"" (string-constant and) i))
                                       (cdr string-finds)))
-                   (list "."))]))
+                           (list "."))))])
               #f))))))