-

libao/libao-async-ffi.rkt

@@ -14,6 +14,7 @@
          ao_music_duration_async
          ao_bufsize_async
          ao_clear_async
+         ao_pause_async
          )
 
 (define lib (get-lib '("ao-play-async" "libao-play-async") '(#f)))
@@ -42,3 +43,6 @@
 ;extern void ao_clear_async(void *handle);
 (define-libao-async ao_clear_async(_fun _libao-async-handle-pointer -> _void))
 
+;extern void ao_pause_async(void *handle, int pause);
+(define-libao-async ao_pause_async(_fun _libao-async-handle-pointer int -> _void))
+