From 9c2d127368a3cf3ed7f1d1fd6f1bd77dd08d81c5 Mon Sep 17 00:00:00 2001 From: Matthew Fennell Date: Sun, 19 Apr 2026 22:10:00 +0100 Subject: Fix off-by-one error in 10pm-adjusted-date The bookings are released at 22:00 Europe/London time. When we check (> (date-hour date) 22), we are not checking whether the time is greater than 22:00, but whether the hour 22 is greater than 22! This means that we do not adjust the date until an hour later, when all the bookings will be gone! Fix this by checking if the hour >= 22 instead. --- util.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'util.scm') diff --git a/util.scm b/util.scm index fad9451..6ad4333 100644 --- a/util.scm +++ b/util.scm @@ -93,7 +93,7 @@ 0 0 0 0)) (define (10pm-adjusted-date date) - (let ((date-offset (if (> (date-hour date) 22) 1 0))) + (let ((date-offset (if (>= (date-hour date) 22) 1 0))) (date+ (current-date) date-offset))) (define (this day-name) -- cgit v1.2.3