From 1221f198b2322d1f4c3030176260282b60b06bfb Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Thu, 26 Feb 2026 16:53:17 +0100 Subject: [PATCH] - --- libao/libao-async.rkt | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/libao/libao-async.rkt b/libao/libao-async.rkt index 597112b..d3bd0ff 100644 --- a/libao/libao-async.rkt +++ b/libao/libao-async.rkt @@ -185,9 +185,10 @@ (let ((q (ao-shm-queue shm))) (while (> (queue-length q) 0) ;(displayln (format "queue-length: ~a" (queue-length q))) - (let* ((elem (dequeue! q)) - (buf (car (cddddr elem)))) - (free buf)))) + ;(let* ((elem (dequeue! q)) + ;(buf (car (cddddr elem)))) + ;(free buf)))) + (dequeue! q)) (set-ao-shm-queue! shm (make-queue)) (set-ao-shm-bufsize! shm 0) )