hans/racket-sound
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

-

Browse Source
This commit is contained in:
Hans Dijkema
2026-02-25 15:21:34 +01:00
parent 98108e6f35
commit aa0e6f55b9
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
libao/libao-async.rkt
View File

@@ -196,10 +196,14 @@
(begin (begin
(displayln "Pausing ao play thread") (displayln "Pausing ao play thread")
(os-semaphore-wait (ao-shm-pause-sem shm)) (os-semaphore-wait (ao-shm-pause-sem shm))
(set-ao-shm-paused! shm pause)) (mutex-lock (ao-shm-mutex shm))
(set-ao-shm-paused! shm pause)
(mutex-unlock (ao-shm-mutex.shm)))
(begin (begin
(displayln "Continuing ao play thread") (displayln "Continuing ao play thread")
(mutex-lock (ao-shm-mutex shm))
(set-ao-shm-paused! shm pause) (set-ao-shm-paused! shm pause)
(mutex-unlock (ao-shm-mutex.shm))
(os-semaphore-post (ao-shm-pause-sem shm))) (os-semaphore-post (ao-shm-pause-sem shm)))
) )
) )