xapian: Add termlist-fold.

* xapian/xapian.scm (termlist-fold): New public function.

1 files changed, 4 insertions, 0 deletions

diff --git a/xapian/xapian.scm b/xapian/xapian.scm
index bb13039..4b33765 100644
--- a/xapian/xapian.scm
+++ b/xapian/xapian.scm
@@ -68,6 +68,7 @@
             mset-item-rank
             mset-item-weight
             mset-fold
+            termlist-fold
             mset-snippet
             mset-sxml-snippet))
 
@@ -273,6 +274,9 @@ on the database object."
 (define mset-fold
   (iterator->fold MSetIterator-next MSetIterator-equals))
 
+(define termlist-fold
+  (iterator->fold TermIterator-next TermIterator-equals))
+
 (define (query term)
   "Return a @code{Query} object for @var{term}."
   (new-Query term))