cbaines/guile-knots
1
Fork 0
Code Issues 1 Pull requests Activity Actions

Change the behind system clock threshold

Browse source 
As the Honeycomb LX2 machines start with 2001 as the time.
This commit is contained in:
Christopher Baines 2026-03-17 21:13:30 +00:00
parent 8b489490e1
commit 8e29587ec1
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
knots.scm
View file

@ -37,9 +37,10 @@
(thunk))) (thunk)))
(define (wait-when-system-clock-behind) (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) (while (< (current-time)
start-of-the-year-2000) start-of-the-year-2001)
(simple-format (current-error-port) (simple-format (current-error-port)
"warning: system clock potentially behind, waiting\n") "warning: system clock potentially behind, waiting\n")
(sleep 20)))) (sleep 20))))