From 1c1a7e940473e7ace0303ae5a76d3e01dfde1a75 Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Wed, 25 Feb 2026 15:27:00 +0100 Subject: [PATCH] - --- libao/libao-async.rkt | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/libao/libao-async.rkt b/libao/libao-async.rkt index b93f959..bbb4aff 100644 --- a/libao/libao-async.rkt +++ b/libao/libao-async.rkt @@ -196,15 +196,19 @@ (begin (displayln "Pausing ao play thread") (os-semaphore-wait (ao-shm-pause-sem shm)) + (displayln (format "Setting pause now to ~a" pause)) (mutex-lock (ao-shm-mutex shm)) (set-ao-shm-paused! shm pause) (mutex-unlock (ao-shm-mutex shm))) (begin - (displayln "Continuing ao play thread") + (displayln (format "Continuing ao play thread, now setting pause to ~a" pause)) (mutex-lock (ao-shm-mutex shm)) (set-ao-shm-paused! shm pause) (mutex-unlock (ao-shm-mutex shm)) - (os-semaphore-post (ao-shm-pause-sem shm))) + (displayln "Posting semaphore twice, one to let play thread continue, one for own use") + (os-semaphore-post (ao-shm-pause-sem shm)) + (os-semaphote-post (ao-shm-pause-sem shm)) + ) ) )