creating delayed reactor

This commit is contained in:
2026-04-21 13:05:49 +02:00
parent 0e2308bc42
commit f62d7158bc

View File

@@ -1037,7 +1037,7 @@
(set! value-set-at (current-milliseconds))
(when (eq? wait-thread #f)
(thread (λ ()
(let loop () ((vsa value-set-at))
(let loop ((vsa value-set-at))
(sleep seconds)
(let ((cms (current-milliseconds)))
(if (>= (- cms vsa) ms)