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