From 0563e77130763b9d57a0fb2c7e9b04292d857621 Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Thu, 7 May 2026 14:50:24 +0200 Subject: [PATCH] pause behavior --- libao-async-ffi-racket.rkt | 4 ++++ libao.rkt | 1 + 2 files changed, 5 insertions(+) diff --git a/libao-async-ffi-racket.rkt b/libao-async-ffi-racket.rkt index 31db370..04c1c79 100644 --- a/libao-async-ffi-racket.rkt +++ b/libao-async-ffi-racket.rkt @@ -765,12 +765,16 @@ ) (define (ao_pause_async h paused) + (dbg-sound "ao_pause_async ~a" paused) + (sync-log-sound) (if (ao-handle-paused h) (when (eq? paused #f) (mutex-unlock (ao-handle-pause-mutex h)) (set-ao-handle-paused! h #f) ) (when (eq? paused #t) + (dbg-sound "locking pause mutex") + (sync-log-sound) (mutex-lock (ao-handle-pause-mutex h)) (set-ao-handle-paused! h #t) (dbg-sound "paused") diff --git a/libao.rkt b/libao.rkt index c6503f9..5672f36 100644 --- a/libao.rkt +++ b/libao.rkt @@ -179,6 +179,7 @@ (rc:define/contract (ao-pause handle pause) (rc:-> ao-handle? boolean? void?) (dbg-sound "ao-pause ~a" pause) + (sync-log-sound) (ffi:ao_pause_async (ao-handle-async-player handle) (if (eq? pause #f) 0 1)) )