racket backend for async ao

2026-05-03 14:16:32 +02:00
parent 92227133ff
commit d06d829f6a
6 changed files with 150 additions and 10 deletions
@@ -161,7 +161,8 @@
         (let ((src (fmpg_buffer fh)))
           (if (eq? src #f)
               (error (format "fmpg_buffer: got NULL for ~a bytes" size))
-               (let ((dst (malloc size 'nonatomic)))
+               ;(let ((dst (malloc size 'nonatomic)))
+               (let ((dst (make-bytes size)))
                 (memcpy dst src size)
                 (values dst size))))))))