pause behavior

This commit is contained in:
2026-05-07 14:53:21 +02:00
parent 0563e77130
commit f0b2d7a6b3
+2
View File
@@ -765,6 +765,8 @@
) )
(define (ao_pause_async h paused) (define (ao_pause_async h paused)
(when (integer? paused)
(set! paused (not (= paused 0))))
(dbg-sound "ao_pause_async ~a" paused) (dbg-sound "ao_pause_async ~a" paused)
(sync-log-sound) (sync-log-sound)
(if (ao-handle-paused h) (if (ao-handle-paused h)