xapian: Preserve order of queries when combining them.

The order is important for operations such as OP_FILTER.

* xapian/xapian.scm (query-combine): Preserve order of queries.

1 files changed, 3 insertions, 3 deletions

diff --git a/xapian/xapian.scm b/xapian/xapian.scm
index 64042a2..1d7c961 100644
--- a/xapian/xapian.scm
+++ b/xapian/xapian.scm
@@ -259,9 +259,9 @@ on the database object."
   (new-Query term))
 
 (define (query-combine combine-operator default . queries)
-  (reduce (cut new-Query combine-operator <> <>)
-          default
-          queries))
+  (reduce-right (cut new-Query combine-operator <> <>)
+                default
+                queries))
 
 (define (query-and . queries)
   "Return a query matching only documents matching all @var{queries}.