-

libao/libao-async.rkt

@@ -94,7 +94,7 @@
                       (set-ao-shm-bufsize! shm (- bs buf-len)))
                     (mutex-unlock (ao-shm-mutex shm))
                     (ao_play ao-device buf buf-len)           ; Play this buffer part
-                    (free buf)                                ; Free the previously malloc 'raw  (see libao.rkt)
+                    ;(free buf)                                ; Free the previously malloc 'raw  (see libao.rkt)
                     )]
                  )
                (player)