From a68244f788dbc00c0b4456ea77abe9ad25f59906 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sat, 22 Feb 2025 01:58:45 +0000
Subject: xapian: Add document-termlist.

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

(limited to 'xapian/xapian.scm')

diff --git a/xapian/xapian.scm b/xapian/xapian.scm
index 0389e26..bb13039 100644
--- a/xapian/xapian.scm
+++ b/xapian/xapian.scm
@@ -46,6 +46,7 @@
             document-slot-ref-bytes
             document-slot-set!
             document-slot-set-bytes!
+            document-termlist
             make-stem
             make-term-generator
             index-text!
@@ -153,6 +154,10 @@ bytevector."
            (current-error-port))
   (Document-add-value-bytes document slot value))
 
+(define (document-termlist doc)
+  (iterable (Document-termlist-begin doc)
+            (Document-termlist-end doc)))
+
 (define make-stem new-Stem)
 
 (define* (make-term-generator #:key stem document)
-- 
cgit 1.4.1