svn: r8587
This commit is contained in:
parent
f30c78dd60
commit
0e77057aa9
|
@ -100,7 +100,7 @@
|
|||
sc))))
|
||||
terms))
|
||||
(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)
|
||||
(let* ([words (entry-words entry)]
|
||||
[words (if words? (collect-words words) words)]
|
||||
|
|
Loading…
Reference in New Issue
Block a user