suzanne.soy/scribble-enhanced
1
0
Fork 0
Code Issues 1 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: 1cf2131266cffb1d65f7e198056af6a3a7530479
This commit is contained in:
Robby Findler 2005-02-03 04:42:08 +00:00
parent 3a01dc6312
commit 4bf8ca083c
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -69,7 +69,7 @@
(define-values (txt-docs txt-doc-names) (colldocs)) (define-values (txt-docs txt-doc-names) (colldocs))
(set! docs (append std-docs txt-docs)) (set! docs (append std-docs txt-docs))
(set! doc-names (append (set! doc-names (append
std-doc-names std-doc-names
(map (lambda (s) (format "the ~a collection" s)) (map (lambda (s) (format "the ~a collection" s))
@ -116,8 +116,8 @@
html-keywords html-keywords
doc doc
(lambda () (lambda ()
(with-handlers ([exn:fail:read? (lambda (x) null)] (with-handlers ([exn:fail:read? (λ (x) null)]
[exn:fail:filesystem? (lambda (x) null)]) [exn:fail:filesystem? (λ (x) null)])
(transform-keywords (transform-keywords
(with-input-from-file (build-path doc "keywords") (with-input-from-file (build-path doc "keywords")
read)))))) read))))))