suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

removed empty-search string constant

Browse Source 
original commit: c94fffa6b79e813aa0706402cdb8559e45c77856
This commit is contained in:
Paul Steckler 2002-08-12 17:37:12 +00:00
parent 19230340dc
commit 9f42f77c5f
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/help/private/search.ss
View File

@ -436,14 +436,12 @@
files)))) files))))
docs doc-names doc-kinds) docs doc-names doc-kinds)
(if (= 0 hit-count) (if (= 0 hit-count)
(cond (format (string-constant nothing-found-for)
[(null? string-finds) (string-constant nothing-found-for-empty-search)]
[else
(format (string-constant nothing-found-for)
(apply (apply
string-append string-append
(cons (format "\"~a\"" (car string-finds)) (cons (format "\"~a\"" (car string-finds))
(map (lambda (i) (format " ~a \"~a\"" (string-constant and) i)) (map (lambda (i) (format " ~a \"~a\"" (string-constant and) i))
(cdr string-finds)))))]) (cdr string-finds)))))
#f)))) #f))))