diff options
| author | Arun Isaac | 2024-05-03 22:55:19 +0100 |
|---|---|---|
| committer | Arun Isaac | 2024-05-04 00:07:13 +0100 |
| commit | 5763f0c9a713c8627a8e9b801a3cfd24b68ab171 (patch) | |
| tree | f619cd4b071b8153414bbdcf6acfcc872a7d3380 /xapian | |
| parent | ec7e7a9eabe210e1a75eeeb68f45dc1d6e5a7731 (diff) | |
| download | guile-xapian-5763f0c9a713c8627a8e9b801a3cfd24b68ab171.tar.gz guile-xapian-5763f0c9a713c8627a8e9b801a3cfd24b68ab171.tar.lz guile-xapian-5763f0c9a713c8627a8e9b801a3cfd24b68ab171.zip | |
xapian: Wrap new-Query.
* xapian/xapian.scm (query): 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 8b8b952..9ca5df6 100644 --- a/xapian/xapian.scm +++ b/xapian/xapian.scm @@ -50,6 +50,7 @@ index-text! increase-termpos! parse-query + query query-and query-or query-filter @@ -207,6 +208,10 @@ on the database object." (MSetIterator-next head) (loop head result)))))) +(define (query term) + "Return a @code{Query} object for @var{term}." + (new-Query term)) + (define (query-combine combine-operator default . queries) (reduce (cut new-Query combine-operator <> <>) default |