diff options
| -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 |