From 860bff1e26911e725e7dddf48f9f0cbeb9627f1e Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 23 Sep 2026 01:50:27 +0100
Subject: Add query-terms.

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

diff --git a/xapian/xapian.scm b/xapian/xapian.scm
index 09554e7..94842cc 100644
--- a/xapian/xapian.scm
+++ b/xapian/xapian.scm
@@ -58,6 +58,7 @@
             query-xor
             query-filter
             query-phrase
+            query-terms
             prefixed-range-processor
             suffixed-range-processor
             prefixed-date-range-processor
@@ -345,6 +346,9 @@ In a weighted context, the weight is the sum of the weights for all
 queries."
   (guile-xapian-build-query (Query-OP-PHRASE) queries))
 
+(define (query-terms query)
+  (iterable (Query-get-terms-begin query)
+            (Query-get-terms-end query)))
 
 (define* (prefixed-range-processor slot proc #:key (prefix "") repeated?)
   "Return a @code{RangeProcessor} object that calls @var{proc} to process
-- 
cgit 1.4.1