diff options
| author | Arun Isaac | 2022-10-17 01:46:13 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-10-17 01:46:13 +0530 |
| commit | 3cf53245de32f3717496e35d4111d59a019ea0c2 (patch) | |
| tree | ff930fb4c6aa176c76aef64b102d1c060bf70670 | |
| parent | 255febe168c2fb3e8182464a218b2951503b92a8 (diff) | |
| download | guile-xapian-3cf53245de32f3717496e35d4111d59a019ea0c2.tar.gz guile-xapian-3cf53245de32f3717496e35d4111d59a019ea0c2.tar.lz guile-xapian-3cf53245de32f3717496e35d4111d59a019ea0c2.zip | |
xapian: Explicitly specify default prefix for index-text!.
* xapian/xapian.scm (index-text!): Explicitly specify default prefix.
| -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) |