From 2b67560e30a8888ea274b4b3f0e2212b771a542e Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Wed, 25 Feb 2026 15:42:49 +0100 Subject: [PATCH] - --- libao/libao-async.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/libao/libao-async.rkt b/libao/libao-async.rkt index d97cf67..8f8a335 100644 --- a/libao/libao-async.rkt +++ b/libao/libao-async.rkt @@ -184,9 +184,9 @@ (define (ao_clear_async* shm) (let ((q (ao-shm-queue shm))) (while (> (queue-length q) 0) - (displayln (format "queue-length: ~a" (queue-length q))) + ;(displayln (format "queue-length: ~a" (queue-length q))) (let* ((elem (dequeue! q)) - (buf (cadddr elem))) + (buf (car (cddddr elem)))) (free buf)))) (set-ao-shm-queue! shm (make-queue)) (set-ao-shm-bufsize! shm 0)