diff options
| author | Arun Isaac | 2026-09-22 22:17:17 +0100 |
|---|---|---|
| committer | Arun Isaac | 2026-09-23 02:00:52 +0100 |
| commit | af2d7193314ee6b814c01bc38c9c599ee90fb004 (patch) | |
| tree | 539ae693a2582e4a8b116e8c761e86ff19002f06 /xapian/xapian.scm | |
| parent | 282931c823fc919fe94754a51f98e2adf2c3ee0d (diff) | |
| download | guile-xapian-af2d7193314ee6b814c01bc38c9c599ee90fb004.tar.gz guile-xapian-af2d7193314ee6b814c01bc38c9c599ee90fb004.tar.lz guile-xapian-af2d7193314ee6b814c01bc38c9c599ee90fb004.zip | |
Pass thunks, not numbers, to get-flag.
Diffstat (limited to 'xapian/xapian.scm')
| -rw-r--r-- | xapian/xapian.scm | 8 |
1 files 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) |