From 3cf53245de32f3717496e35d4111d59a019ea0c2 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Mon, 17 Oct 2022 01:46:13 +0530
Subject: xapian: Explicitly specify default prefix for index-text!.

* xapian/xapian.scm (index-text!): Explicitly specify default prefix.
---
 xapian/xapian.scm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'xapian')

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)
 
-- 
cgit v1.2.3