From 14708f874a886dfb2a016b7595920ace7522f671 Mon Sep 17 00:00:00 2001 From: Bogdan Popa Date: Sun, 31 Aug 2025 08:19:03 +0300 Subject: [PATCH] queue: fix range of yield/no-sync --- gui-lib/mred/private/wx/common/queue.rkt | 37 ++++++++++++------------ 1 file changed, 19 insertions(+), 18 deletions(-) diff --git a/gui-lib/mred/private/wx/common/queue.rkt b/gui-lib/mred/private/wx/common/queue.rkt index d39d76474..00d91ac29 100644 --- a/gui-lib/mred/private/wx/common/queue.rkt +++ b/gui-lib/mred/private/wx/common/queue.rkt @@ -495,24 +495,25 @@ (wait-now))]))])) (define (yield/no-sync) - (let ([e (current-eventspace)]) - (when (eq? (current-thread) (eventspace-handler-thread e)) - (let ([v (sync/timeout 0 ((eventspace-queue-proc e) #f #f #f))]) - (if v - (begin (handle-event v e) #t) - #f))))) - -(define yield-refresh - (lambda () - (let ([e (current-eventspace)]) - (and (eq? (current-thread) (eventspace-handler-thread e)) - (let loop ([result #f]) - (let ([v (sync/timeout 0 ((eventspace-queue-proc e) #t #f #t))]) - (if v - (begin - (handle-event v e) - (loop #t)) - result))))))) + (define e (current-eventspace)) + (and (eq? (current-thread) (eventspace-handler-thread e)) + (let ([v (sync/timeout 0 ((eventspace-queue-proc e) #f #f #f))]) + (if v + (begin + (handle-event v e) + #t) + #f)))) + +(define (yield-refresh) + (define e (current-eventspace)) + (and (eq? (current-thread) (eventspace-handler-thread e)) + (let loop ([result #f]) + (let ([v (sync/timeout 0 ((eventspace-queue-proc e) #t #f #t))]) + (if v + (begin + (handle-event v e) + (loop #t)) + result))))) (define (eventspace-event-evt [e (current-eventspace)]) (unless (eventspace? e)