diff options
| author | Arun Isaac | 2025-02-22 01:58:45 +0000 |
|---|---|---|
| committer | Arun Isaac | 2025-03-10 01:39:10 +0000 |
| commit | a68244f788dbc00c0b4456ea77abe9ad25f59906 (patch) | |
| tree | ffcd624cb91507ddb08e00e7ea4e56f8372c9d52 /xapian | |
| parent | a929503433665ba0629fb46f39081c192eb5240e (diff) | |
| download | guile-xapian-a68244f788dbc00c0b4456ea77abe9ad25f59906.tar.gz guile-xapian-a68244f788dbc00c0b4456ea77abe9ad25f59906.tar.lz guile-xapian-a68244f788dbc00c0b4456ea77abe9ad25f59906.zip | |
xapian: Add document-termlist.
* xapian/xapian.scm (document-termlist): New public function.
Diffstat (limited to 'xapian')
| -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 0389e26..bb13039 100644 --- a/xapian/xapian.scm +++ b/xapian/xapian.scm @@ -46,6 +46,7 @@ document-slot-ref-bytes document-slot-set! document-slot-set-bytes! + document-termlist make-stem make-term-generator index-text! @@ -153,6 +154,10 @@ bytevector." (current-error-port)) (Document-add-value-bytes document slot value)) +(define (document-termlist doc) + (iterable (Document-termlist-begin doc) + (Document-termlist-end doc))) + (define make-stem new-Stem) (define* (make-term-generator #:key stem document) |