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

svn: r8587

Browse Source
This commit is contained in:
Eli Barzilay 2008-02-08 19:09:28 +00:00
parent f30c78dd60
commit 0e77057aa9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/help/search.ss
View File

@ -100,7 +100,7 @@
sc)))) sc))))
terms)) terms))
(define word-scorer (define word-scorer
(and (not words?) (terms->scorer (collect-words terms) #f #t))) (and (not words?) (not exact?) (terms->scorer (collect-words terms) #f #t)))
(lambda (entry) (lambda (entry)
(let* ([words (entry-words entry)] (let* ([words (entry-words entry)]
[words (if words? (collect-words words) words)] [words (if words? (collect-words words) words)]