-

libao.rkt

@@ -200,8 +200,6 @@
                        (let ((chan-buf (list-ref buffer channel)))
                          (vector-ref chan-buf k))))
          )
-    ;(displayln (format "bps: ~a, buf-len: ~a, endianess: ~a, channels: ~a, bits ~a"
-    ;                   bytes-per-sample buf-len endianess channels bits))
     (letrec ((i 0)
              (fill (lambda (k channel)
                      (if (< k buf-len)