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