From af2d7193314ee6b814c01bc38c9c599ee90fb004 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Tue, 22 Sep 2026 22:17:17 +0100
Subject: Pass thunks, not numbers, to get-flag.

---
 xapian/xapian.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/xapian/xapian.scm b/xapian/xapian.scm
index 3ba9458..d71bbe1 100644
--- a/xapian/xapian.scm
+++ b/xapian/xapian.scm
@@ -397,8 +397,8 @@ month/day/year rather than day/month/year.
 two-digit years."
   (new-DateRangeProcessor slot
                           prefix
-                          (bitwise-ior (get-flag (RP-REPEATED) repeated?)
-                                       (get-flag (RP-DATE-PREFER-MDY) prefer-mdy?))
+                          (bitwise-ior (get-flag RP-REPEATED repeated?)
+                                       (get-flag RP-DATE-PREFER-MDY prefer-mdy?))
                           epoch-year))
 
 (define* (suffixed-date-range-processor slot #:key suffix repeated? prefer-mdy? (epoch-year 1970))
@@ -413,8 +413,8 @@ two-digit years."
   (new-DateRangeProcessor slot
                           suffix
                           (bitwise-ior (RP-SUFFIX)
-                                       (get-flag (RP-REPEATED) repeated?)
-                                       (get-flag (RP-DATE-PREFER-MDY) prefer-mdy?))
+                                       (get-flag RP-REPEATED repeated?)
+                                       (get-flag RP-DATE-PREFER-MDY prefer-mdy?))
                           epoch-year))
 
 (define (field-processor proc)
-- 
cgit 1.4.1