From e8a51ba72d2587aa01bc96f120ad20551f632f2a Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sat, 22 Feb 2025 01:59:08 +0000
Subject: xapian: Add termlist-fold.

* xapian/xapian.scm (termlist-fold): New public function.
---
 xapian/xapian.scm | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'xapian')

diff --git a/xapian/xapian.scm b/xapian/xapian.scm
index bb13039..4b33765 100644
--- a/xapian/xapian.scm
+++ b/xapian/xapian.scm
@@ -68,6 +68,7 @@
             mset-item-rank
             mset-item-weight
             mset-fold
+            termlist-fold
             mset-snippet
             mset-sxml-snippet))
 
@@ -273,6 +274,9 @@ on the database object."
 (define mset-fold
   (iterator->fold MSetIterator-next MSetIterator-equals))
 
+(define termlist-fold
+  (iterator->fold TermIterator-next TermIterator-equals))
+
 (define (query term)
   "Return a @code{Query} object for @var{term}."
   (new-Query term))
-- 
cgit 1.4.1