aboutsummaryrefslogtreecommitdiff
path: root/xapian/xapian.scm
diff options
context:
space:
mode:
Diffstat (limited to 'xapian/xapian.scm')
-rw-r--r--xapian/xapian.scm5
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)