From f0b2d7a6b38ccd3f96dfcd903ab3915e46600dc9 Mon Sep 17 00:00:00 2001
From: Hans Dijkema <hans@dijkewijk.nl>
Date: Thu, 7 May 2026 14:53:21 +0200
Subject: [PATCH] pause behavior

---
 libao-async-ffi-racket.rkt | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/libao-async-ffi-racket.rkt b/libao-async-ffi-racket.rkt
index 04c1c79..a99e480 100644
--- a/libao-async-ffi-racket.rkt
+++ b/libao-async-ffi-racket.rkt
@@ -765,6 +765,8 @@
   )
 
 (define (ao_pause_async h paused)
+  (when (integer? paused)
+    (set! paused (not (= paused 0))))
   (dbg-sound "ao_pause_async ~a" paused)
   (sync-log-sound)
   (if (ao-handle-paused h)