From 01fa9770083b2a7616c111ad9da83b29a7ba174b Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 23 Sep 2026 01:52:08 +0100
Subject: Add positionlist-fold.

---
 xapian/xapian.scm | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'xapian/xapian.scm')

diff --git a/xapian/xapian.scm b/xapian/xapian.scm
index 94842cc..fa22bbe 100644
--- a/xapian/xapian.scm
+++ b/xapian/xapian.scm
@@ -72,6 +72,7 @@
             mset-item-weight
             mset-fold
             termlist-fold
+            positionlist-fold
             term-string
             term-wdf
             term-freq
@@ -297,6 +298,9 @@ on the database object."
 (define termlist-fold
   (iterator->fold TermIterator-next TermIterator-equals))
 
+(define positionlist-fold
+  (iterator->fold PositionIterator-next PositionIterator-equals))
+
 (define term-string TermIterator-get-term)
 (define term-wdf TermIterator-get-wdf)
 (define term-freq TermIterator-get-termfreq)
-- 
cgit 1.4.1