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:05:46 +01:00
parent 89ef12815f
commit cc5bf0c203
1 changed files with 12 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
libao/libao.rkt
View File

@@ -29,6 +29,7 @@
[channels #:auto #:mutable] [channels #:auto #:mutable]
[rate #:auto #:mutable] [rate #:auto #:mutable]
[async-player #:auto #:mutable] [async-player #:auto #:mutable]
[closed #:auto #:mutable]
) )
#:auto-value #f #:auto-value #f
) )
@@ -107,6 +108,8 @@
(printf "Unexpected: cannot close ao-device")))) (printf "Unexpected: cannot close ao-device"))))
'internally-closed) 'internally-closed)
(let ((handle-num (ao-handle-handle-num handle))) (let ((handle-num (ao-handle-handle-num handle)))
(unless (ao-handle-closed handle)
(set-ao-handle-closed! handle #t)
(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)
@@ -115,7 +118,7 @@
(hash-remove! devices handle-num) (hash-remove! devices handle-num)
(if (= r 0) (if (= r 0)
'error-closing-ao-device 'error-closing-ao-device
'ok))))))) 'ok))))))))
(define count 0) (define count 0)