made searching be case-insesntivie

svn: r7784
This commit is contained in:
Robby Findler 2007-11-20 13:44:25 +00:00
parent 978ce31303
commit 70907a8932

View File

@ -57,7 +57,7 @@
(define (generate-search-results search-keys) (define (generate-search-results search-keys)
(let ([file (next-search-results-file)] (let ([file (next-search-results-file)]
[search-regexps (map regexp-quote search-keys)] [search-regexps (map (λ (x) (regexp-quote x #f)) search-keys)]
[search-key-string [search-key-string
(cond (cond
[(null? search-keys) ""] [(null? search-keys) ""]