-

libao/libao.rkt

@@ -13,6 +13,7 @@
          ao-close
          ao-default-driver-id
          ao-at-second
+         ao-bufsize-async
          )
 
 (define devices (make-hash))
@@ -85,7 +86,7 @@
                 (set-ao-handle-byte-format! handle endianness)
                 (set-ao-handle-rate! handle rate)
                 (set-ao-handle-channels! handle channels)
-                (set-ao-handle-async-player! handle (ao_create_async ao-device))
+                (set-ao-handle-async-player! handle (ao_create_async ao-device ao_play_ptr))
                 (hash-set! devices handle-num ao-device)
                 (fin:register-finalizer handle
                                         (lambda (handle)
@@ -159,7 +160,9 @@
                          'filled))
                    ))
       (fill 0 0)
-      (ao_play_async (ao-handle-async-player handle) (exact->inexact at-time-in-s) audio-buf-len audio)
+      (ao_play_async (ao-handle-async-player handle) (exact->inexact at-time-in-s)
+                     audio-buf-len
+                     audio)
       )
     )
   )
@@ -167,6 +170,9 @@
 (define (ao-at-second handle)
   (ao_is_at_second_async (ao-handle-async-player handle)))
 
+(define (ao-bufsize-async handle)
+  (ao_bufsize_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)