-

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))
+    (letrec ((loop (λ ()
-         (sleep 0.01))
+                     (if (eq? (stopped) #t)
+                         'stopped
+                         (begin
+                           (sleep 0.01)
+                           (loop))))))
+      (loop)
+      'stopped)
+    )
   )
 
 (define (ao_play_async shm at-second buf-size buf)