From 9a5adade7969ed449903c54c987ef793439bf86a Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sat, 22 Feb 2025 02:16:20 +0000
Subject: xapian: Add term field getters.

* xapian/xapian.scm (term-string, term-wdf, term-freq): New public
functions.
---
 xapian/xapian.scm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/xapian/xapian.scm b/xapian/xapian.scm
index 4b33765..c769a98 100644
--- a/xapian/xapian.scm
+++ b/xapian/xapian.scm
@@ -69,6 +69,9 @@
             mset-item-weight
             mset-fold
             termlist-fold
+            term-string
+            term-wdf
+            term-freq
             mset-snippet
             mset-sxml-snippet))
 
@@ -277,6 +280,10 @@ on the database object."
 (define termlist-fold
   (iterator->fold TermIterator-next TermIterator-equals))
 
+(define term-string TermIterator-get-term)
+(define term-wdf TermIterator-get-wdf)
+(define term-freq TermIterator-get-termfreq)
+
 (define (query term)
   "Return a @code{Query} object for @var{term}."
   (new-Query term))
-- 
cgit 1.4.1