From eac031c17fc66fcfead5b564fa6c52a3f9a27850 Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Thu, 26 Feb 2026 16:51:01 +0100 Subject: [PATCH] - --- libao/libao-async.rkt | 2 +- libao/libao.rkt | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/libao/libao-async.rkt b/libao/libao-async.rkt index 8f8a335..597112b 100644 --- a/libao/libao-async.rkt +++ b/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) diff --git a/libao/libao.rkt b/libao/libao.rkt index 04747af..7fdf92e 100644 --- a/libao/libao.rkt +++ b/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))))