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

svn: r8587

Browse Source 
original commit: 0e77057aa973016802666541e51aef399f6df866
This commit is contained in:
Eli Barzilay 2008-02-08 19:09:28 +00:00
parent 39200e2ff6
commit 0e156fe8db
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)]