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-24 14:09:53 +01:00
parent cc5bf0c203
commit f250b18d6e
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
libao/libao.rkt
View File

@@ -110,6 +110,7 @@
(let ((handle-num (ao-handle-handle-num handle))) (let ((handle-num (ao-handle-handle-num handle)))
(unless (ao-handle-closed handle) (unless (ao-handle-closed handle)
(set-ao-handle-closed! handle #t) (set-ao-handle-closed! handle #t)
(ao_clear_async (ao-handle-async-player handle))
(ao_stop_async (ao-handle-async-player handle)) (ao_stop_async (ao-handle-async-player handle))
(let ((ao-device (hash-ref devices handle-num #f))) (let ((ao-device (hash-ref devices handle-num #f)))
(if (eq? ao-device #f) (if (eq? ao-device #f)