From 45544f464564436b9263e4f626bdd52fdad0c7b6 Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Tue, 24 Feb 2026 14:48:19 +0100 Subject: [PATCH] - --- libao/libao-async.rkt | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/libao/libao-async.rkt b/libao/libao-async.rkt index 9d93591..dfd8712 100644 --- a/libao/libao-async.rkt +++ b/libao/libao-async.rkt @@ -115,8 +115,15 @@ (let ((w (ao-shm-stopped shm))) (mutex-unlock (ao-shm-mutex shm)) w)))) - (while (eq? (stopped) #f)) - (sleep 0.01)) + (letrec ((loop (λ () + (if (eq? (stopped) #t) + 'stopped + (begin + (sleep 0.01) + (loop)))))) + (loop) + 'stopped) + ) ) (define (ao_play_async shm at-second buf-size buf)