diff options
| author | Arun Isaac | 2026-09-23 01:50:27 +0100 |
|---|---|---|
| committer | Arun Isaac | 2026-09-23 02:00:52 +0100 |
| commit | 860bff1e26911e725e7dddf48f9f0cbeb9627f1e (patch) | |
| tree | 69feacd5ca35c35abc51b4bf2a58d2f3dd52e605 | |
| parent | e6daadaa220a3dbb115fe6ffc5c692654f3e9e9f (diff) | |
| download | guile-xapian-860bff1e26911e725e7dddf48f9f0cbeb9627f1e.tar.gz guile-xapian-860bff1e26911e725e7dddf48f9f0cbeb9627f1e.tar.lz guile-xapian-860bff1e26911e725e7dddf48f9f0cbeb9627f1e.zip | |
Add query-terms.
| -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 09554e7..94842cc 100644 --- a/xapian/xapian.scm +++ b/xapian/xapian.scm @@ -58,6 +58,7 @@ query-xor query-filter query-phrase + query-terms prefixed-range-processor suffixed-range-processor prefixed-date-range-processor @@ -345,6 +346,9 @@ In a weighted context, the weight is the sum of the weights for all queries." (guile-xapian-build-query (Query-OP-PHRASE) queries)) +(define (query-terms query) + (iterable (Query-get-terms-begin query) + (Query-get-terms-end query))) (define* (prefixed-range-processor slot proc #:key (prefix "") repeated?) "Return a @code{RangeProcessor} object that calls @var{proc} to process |