...

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
@@ -43,4 +39,4 @@
                                  (frame-mixin)
                                  help:doc-position^)
   
-  (new-help-frame startup-url))
+  (new-help-frame startup-url))

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
+              (cond
-               string-append
+                [(null? string-finds) (string-constant nothing-found-for-empty-search)]
-               "Nothing found for "
+                [else
-               (cond
+                 (format (string-constant nothing-found-for)
-                 [(null? string-finds) (list "the empty search.")]
+                         (apply
-                 [else
+                          string-append
-                  (append
+                          (append
-                   (cons (format "\"~a\"" (car string-finds))
+                           (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)))
+                                      (cdr string-finds)))
-                   (list "."))]))
+                           (list "."))))])
               #f))))))