-

libao/libao-async.rkt

@@ -188,7 +188,7 @@
            ;(let* ((elem (dequeue! q))
                   ;(buf (car (cddddr elem))))
              ;(free buf))))
-	   (dequeue! q))
+	   (dequeue! q)))
   (set-ao-shm-queue! shm (make-queue))
   (set-ao-shm-bufsize! shm 0)
   )