diff options
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) |