diff options
| author | Arun Isaac | 2026-09-23 01:52:08 +0100 |
|---|---|---|
| committer | Arun Isaac | 2026-09-23 02:00:52 +0100 |
| commit | 01fa9770083b2a7616c111ad9da83b29a7ba174b (patch) | |
| tree | 516c006a65307422192e9d511acb8267f56a05d4 | |
| parent | 860bff1e26911e725e7dddf48f9f0cbeb9627f1e (diff) | |
| download | guile-xapian-01fa9770083b2a7616c111ad9da83b29a7ba174b.tar.gz guile-xapian-01fa9770083b2a7616c111ad9da83b29a7ba174b.tar.lz guile-xapian-01fa9770083b2a7616c111ad9da83b29a7ba174b.zip | |
Add positionlist-fold.
| -rw-r--r-- | xapian/xapian.scm | 4 |
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) |