xapian: Add term field getters.

* xapian/xapian.scm (term-string, term-wdf, term-freq): New public
functions.

1 files changed, 7 insertions, 0 deletions

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))