-

libao/libao.rkt

@@ -164,6 +164,11 @@
                      audio-buf-len
                      audio)
       )
+      ;(let* ((handle-num (ao-handle-handle-num handle))
+      ;       (ao-device (hash-ref devices handle-num #f)))
+      ;  (if (eq? ao-device #f)
+      ;      (error "No device for this handle")
+      ;      (ao_play ao-device audio audio-buf-len)))      )
     )
   )