-

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)

libao/libao.rkt

@@ -187,7 +187,7 @@
          (audio-buf-len (* channels bytes-per-sample buf-len))
          (audio (if (eq? libao-async-mode 'ffi)
                     (malloc 'atomic audio-buf-len)
-                    (malloc 'raw audio-buf-len)))
+                    (malloc 'atomic audio-buf-len)))   ; was: 'raw
          (get-sample (lambda (k channel)
                        (let ((chan-buf (list-ref buffer channel)))
                          (vector-ref chan-buf k))))