1 files changed, 4 insertions, 0 deletions
diff --git a/xapian/xapian.scm b/xapian/xapian.scm
index 94842cc..fa22bbe 100644
--- a/xapian/xapian.scm
+++ b/xapian/xapian.scm
@@ -72,6 +72,7 @@
             mset-item-weight
             mset-fold
             termlist-fold
+            positionlist-fold
             term-string
             term-wdf
             term-freq
@@ -297,6 +298,9 @@ on the database object."
 (define termlist-fold
   (iterator->fold TermIterator-next TermIterator-equals))
 
+(define positionlist-fold
+  (iterator->fold PositionIterator-next PositionIterator-equals))
+
 (define term-string TermIterator-get-term)
 (define term-wdf TermIterator-get-wdf)
 (define term-freq TermIterator-get-termfreq)