-

libao/libao.rkt

@@ -157,6 +157,7 @@
           (close-device #f ao-device))
         (let ((handle-num (ao-handle-handle-num handle)))
           (let ((ao-device (hash-ref devices handle-num #f)))
+            (displayln (format "ao-device = ~a" ao-device))
             (close-device handle ao-device))
           )
         )