-

libao/libao.rkt

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