creating delayed reactor

2026-04-21 13:10:58 +02:00
parent f62d7158bc
commit 472c70660c
1 changed files with 10 additions and 10 deletions
--- a/racket-webview.rkt
+++ b/racket-webview.rkt
@@ -1036,16 +1036,16 @@
      (set! value val)
      (set! value-set-at (current-milliseconds))
      (when (eq? wait-thread #f)
-        (thread (λ ()
-                  (let loop ((vsa value-set-at))
-                    (sleep seconds)
-                    (let ((cms (current-milliseconds)))
-                      (if (>= (- cms vsa) ms)
-                          (begin
-                            (set! wait-thread #f)
-                            (value-callback value))
-                          (loop)))))))
-      )))
+        (set! wait-thread (thread (λ ()
+                                    (let loop ((vsa value-set-at))
+                                      (sleep seconds)
+                                      (let ((cms (current-milliseconds)))
+                                        (if (>= (- cms vsa) ms)
+                                            (begin
+                                              (set! wait-thread #f)
+                                              (value-callback value))
+                                            (loop)))))))
+        ))))

 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Quitting and waiting