iens

commit fdc5c0e07d67342361a3d10a659c3ed03cec7030
parent 67d40135dfda9def7ae3a1a4bd0e17aff8ee0b5c
Author: Natasha Kerensikova <natgh@instinctive.eu>
Date:   Sat, 26 Sep 2026 17:59:40 +0000

Minimal get-gruik pause is ensured
Diffstat:
M
src/get-gruiks.scm
 | 
5
++++-

1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/src/get-gruiks.scm b/src/get-gruiks.scm
@@ -34,8 +34,11 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Scheduling primitives
 
+(define min-sleep (seconds->time 0.125))
 (define (sleep-until deadline)
-  (secosleep (time->seconds (time-difference deadline (monotonic-time)))))
+  (let* ((dt  (time-max min-sleep (time-difference deadline (monotonic-time))))
+         (sec (time->seconds dt)))
+    (secosleep sec)))
 (define (run-until deadline count thunk)
   (if deadline
     (let* ((now (monotonic-time))