diff options
Diffstat (limited to 'xapian/xapian.scm')
| -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 |