-

libao/libao.rkt

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