hans/racket-sound
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

-

Browse Source
This commit is contained in:
Hans Dijkema
2026-02-25 15:41:01 +01:00
parent 4c640c2d73
commit 9108bf8514
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
libao/libao-async.rkt
View File

@@ -184,6 +184,7 @@
(define (ao_clear_async* shm) (define (ao_clear_async* shm)
(let ((q (ao-shm-queue shm))) (let ((q (ao-shm-queue shm)))
(while (> (queue-length q) 0) (while (> (queue-length q) 0)
(displayln (format "queue-length: ~a" (queue-length q)))
(let* ((elem (dequeue! q)) (let* ((elem (dequeue! q))
(buf (cadddr elem))) (buf (cadddr elem)))
(free buf)))) (free buf))))