From 472c70660cdfd6010ef3760855917ed45148a1de Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Tue, 21 Apr 2026 13:10:58 +0200 Subject: [PATCH] creating delayed reactor --- racket-webview.rkt | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/racket-webview.rkt b/racket-webview.rkt index 29b0a38..e23e389 100644 --- 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