-

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))
+           ;(let* ((elem (dequeue! q))
-                  (buf (car (cddddr elem))))
+                  ;(buf (car (cddddr elem))))
-             (free buf))))
+             ;(free buf))))
+	   (dequeue! q))
   (set-ao-shm-queue! shm (make-queue))
   (set-ao-shm-bufsize! shm 0)
   )