paused handling

This commit is contained in:
2026-05-07 14:32:05 +02:00
parent aff4f7e6d7
commit a1e49de9ea
+3 -3
View File
@@ -469,9 +469,9 @@
(mutex-lock (ao-handle-pause-mutex h)) (mutex-lock (ao-handle-pause-mutex h))
(mutex-unlock (ao-handle-pause-mutex h)) (mutex-unlock (ao-handle-pause-mutex h))
(mutex-lock (ao-handle-clear-mutex h)) (mutex-lock (ao-handle-clear-mutex h))
(let ((if (ao-handle-paused h) (let ((elem (if (ao-handle-paused h)
#f #f
(elem (get h 250)))) (get h 150))))
(mutex-unlock (ao-handle-clear-mutex h)) (mutex-unlock (ao-handle-clear-mutex h))
(if (eq? elem #f) (if (eq? elem #f)
(begin (begin