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-26 17:05:17 +01:00
parent 674123dc83
commit 8eadceac21
1 changed files with 8 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
libao/libao.rkt
View File

@@ -156,11 +156,16 @@
(if (number? handle) (if (number? handle)
(let ((ao-device (hash-ref devices handle #f))) (let ((ao-device (hash-ref devices handle #f)))
(close-device #f ao-device)) (unless (eq? ao-device #f)
(displayln (format "Closing ao device ~a" ao-device))
(close-device #f ao-device)
(hash-remove! devices handle)))
(let ((handle-num (ao-handle-handle-num handle))) (let ((handle-num (ao-handle-handle-num handle)))
(let ((ao-device (hash-ref devices handle-num #f))) (let ((ao-device (hash-ref devices handle-num #f)))
(unless (eq? ao-device #f)
(displayln (format "ao-device = ~a" ao-device)) (displayln (format "ao-device = ~a" ao-device))
(close-device handle ao-device)) (close-device handle ao-device)
(hash-remove! devices handle-num)))
) )
) )
) )