-

libao/libao.rkt

@@ -55,8 +55,10 @@
                       (lambda (my-handle)
                         (hash-for-each devices
                                        (lambda (handle-num device)
+                                         (displayln (format "closing ao handle ~a" handle-num))
                                          (ao-close handle-num)))
                         (set! devices (make-hash))
+                        (displayln "shutting down ao")
                         (ao_shutdown)
                         (plumber-flush-handle-remove! my-handle)
                         )))