From 5763f0c9a713c8627a8e9b801a3cfd24b68ab171 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Fri, 3 May 2024 22:55:19 +0100
Subject: xapian: Wrap new-Query.

* xapian/xapian.scm (query): New public function.
---
 xapian/xapian.scm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'xapian')

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
-- 
cgit v1.2.3