summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/date-utils.scm5
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