From f60be87fa686b45e1cea25294966b204a98863d4 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 23 Sep 2026 01:52:48 +0100
Subject: Add term-positionlist.

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

(limited to 'xapian')

diff --git a/xapian/xapian.scm b/xapian/xapian.scm
index e00c07f..dbdfb44 100644
--- a/xapian/xapian.scm
+++ b/xapian/xapian.scm
@@ -76,6 +76,7 @@
             term-string
             term-wdf
             term-freq
+            term-positionlist
             position-termpos
             mset-snippet
             mset-sxml-snippet))
@@ -306,6 +307,10 @@ on the database object."
 (define term-wdf TermIterator-get-wdf)
 (define term-freq TermIterator-get-termfreq)
 
+(define (term-positionlist term)
+  (iterable (TermIterator-positionlist-begin term)
+            (TermIterator-positionlist-end term)))
+
 (define position-termpos PositionIterator-get-termpos)
 
 (define (query term)
-- 
cgit 1.4.1