-

2026-02-25 13:47:51 +01:00
parent ae432628f6
commit 58793f3a14
6 changed files with 37 additions and 4 deletions
--- a/libao/libao.rkt
+++ b/libao/libao.rkt
@@ -230,6 +230,12 @@
    )
  )

+(define (ao-pause handle pause)
+  (if (eq? libao-async-mode 'ffi)
+      (ffi:ao_pause_async (ao-handle-async-player handle) pause)
+      (scm:ao_pause_async (ao-handle-async-plauer handle) pause)
+      ))
+
 (define (ao-at-second handle)
  (if (eq? libao-async-mode 'ffi)
      (ffi:ao_is_at_second_async (ao-handle-async-player handle))