-

libao/libao-async.rkt

@@ -73,7 +73,7 @@
                  [(eq? command 'play)
                   (let ((at-second (cadr elem))
                         (duration (caddr elem))
-                        (buf-len (caddrr elem))
+                        (buf-len (cadddr elem))
                         (buf (car (cddddr elem)))
                         )
                     (mutex-lock (ao-shm-mutex shm))