From 8e29587ec158c71cf6a440fbdde19bf3277ec154 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Tue, 17 Mar 2026 21:13:30 +0000 Subject: [PATCH] Change the behind system clock threshold As the Honeycomb LX2 machines start with 2001 as the time. --- knots.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/knots.scm b/knots.scm index 765db5a..0baaf3a 100644 --- a/knots.scm +++ b/knots.scm @@ -37,9 +37,10 @@ (thunk))) (define (wait-when-system-clock-behind) - (let ((start-of-the-year-2000 946684800)) + ;; Jan 02 2001 02:00:00 + (let ((start-of-the-year-2001 978400800)) (while (< (current-time) - start-of-the-year-2000) + start-of-the-year-2001) (simple-format (current-error-port) "warning: system clock potentially behind, waiting\n") (sleep 20))))