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,7 +1036,7 @@
      (set! value val)
      (set! value-set-at (current-milliseconds))
      (when (eq? wait-thread #f)
-        (thread (λ ()
+        (set! wait-thread (thread (λ ()
                                    (let loop ((vsa value-set-at))
                                      (sleep seconds)
                                      (let ((cms (current-milliseconds)))
@@ -1045,7 +1045,7 @@
                                              (set! wait-thread #f)
                                              (value-callback value))
                                            (loop)))))))
-      )))
+        ))))

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