Add position-termpos.

1 files changed, 3 insertions, 0 deletions

diff --git a/xapian/xapian.scm b/xapian/xapian.scm
index fa22bbe..e00c07f 100644
--- a/xapian/xapian.scm
+++ b/xapian/xapian.scm
@@ -76,6 +76,7 @@
             term-string
             term-wdf
             term-freq
+            position-termpos
             mset-snippet
             mset-sxml-snippet))
 
@@ -305,6 +306,8 @@ on the database object."
 (define term-wdf TermIterator-get-wdf)
 (define term-freq TermIterator-get-termfreq)
 
+(define position-termpos PositionIterator-get-termpos)
+
 (define (query term)
   "Return a @code{Query} object for @var{term}."
   (new-Query term))