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

fixed PR 8997

Browse Source 
svn: r7510

original commit: 369d4d074954db7f4eb44b4bf9e7ae1074f8b242
This commit is contained in:
Robby Findler 2007-10-16 13:39:56 +00:00
parent 9a88fa516c
commit 4a31fa8cd1
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -483,7 +483,20 @@
[(html) (with-handlers ([exn:fail:filesystem? (lambda (x) null)])
(map (lambda (x) (build-path doc x))
(filter
(lambda (x) (file-exists? (build-path doc x)))
(lambda (x)
(let ([str (path->string x)])
(cond
[(or (regexp-match "--h\\.idx$" str)
(regexp-match "--h\\.ind$" str)
(regexp-match "Z-A\\.scm$" str)
(regexp-match "Z-L\\.scm$" str)
(regexp-match "gif$" str)
(regexp-match "png$" str)
(regexp-match "hdindex$" str)
(regexp-match "keywords$" str))
#f]
[else
(file-exists? (build-path doc x))])))
(directory-list doc))))]
[(text) (list (apply build-path doc))]
[else null])])