diff options
| -rw-r--r-- | xapian/xapian.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/xapian/xapian.scm b/xapian/xapian.scm index e00c07f..dbdfb44 100644 --- a/xapian/xapian.scm +++ b/xapian/xapian.scm @@ -76,6 +76,7 @@ term-string term-wdf term-freq + term-positionlist position-termpos mset-snippet mset-sxml-snippet)) @@ -306,6 +307,10 @@ on the database object." (define term-wdf TermIterator-get-wdf) (define term-freq TermIterator-get-termfreq) +(define (term-positionlist term) + (iterable (TermIterator-positionlist-begin term) + (TermIterator-positionlist-end term))) + (define position-termpos PositionIterator-get-termpos) (define (query term) |