-

libao/libao.rkt

@@ -14,6 +14,7 @@
          ao-default-driver-id
          ao-at-second
          ao-bufsize-async
+         ao-clear-async
          )
 
 (define devices (make-hash))
@@ -178,6 +179,9 @@
 (define (ao-bufsize-async handle)
   (ao_bufsize_async (ao-handle-async-player handle)))
 
+(define (ao-clear-async handle)
+  (ao_clear_async (ao-handle-async-player handle)))
+
 ;(let* ((handle-num (ao-handle-handle-num handle))
 ;             (ao-device (hash-ref devices handle-num #f)))
 ;        (if (eq? ao-device #f)