diff options
| -rw-r--r-- | src/date-utils.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/date-utils.scm b/src/date-utils.scm index b977f13..114f7b7 100644 --- a/src/date-utils.scm +++ b/src/date-utils.scm @@ -35,10 +35,11 @@ (define %week-start-lookup-data (let* ((week-start-day 1) ; Monday + (start-year 2020) (years (iota (+ 2 (- (date-year (current-date)) - 2019)) - 2019)) + start-year)) + start-year)) (first-week-mondays-by-year (fold (lambda (year data) (let* ((fourth-of-january |