diff options
| -rw-r--r-- | xapian/xapian.scm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/xapian/xapian.scm b/xapian/xapian.scm index 94eb1b3..0da12a5 100644 --- a/xapian/xapian.scm +++ b/xapian/xapian.scm @@ -148,12 +148,11 @@ bytevector." (TermGenerator-set-document term-generator document) term-generator)) -(define* (index-text! term-generator text #:key (wdf-increment 1) prefix) +(define* (index-text! term-generator text #:key (wdf-increment 1) (prefix "")) "Index @var{text} using @var{term-generator}. @var{wdf-increment} is the within document frequency increment. @var{prefix} is the term prefix to use." - (apply TermGenerator-index-text term-generator text wdf-increment - (if prefix (list prefix) '()))) + (TermGenerator-index-text term-generator text wdf-increment prefix)) (define increase-termpos! TermGenerator-increase-termpos) |