changed async library. Flac conversion in C

2026-04-10 08:32:55 +02:00
parent f3b6fc9669
commit 7aa77436bb
5 changed files with 119 additions and 106 deletions
--- a/flac-decoder.rkt
+++ b/flac-decoder.rkt
@@ -47,13 +47,12 @@
           (channels (hash-ref h 'channels))
           (block-size (hash-ref h 'blocksize)))
      (hash-set! h 'duration (flac-duration handle))
-      (let ((buffers (ffi 'get-buffers buffer channels block-size)))
-        (set! last-buffer buffers)
-        (set! last-buf-len (hash-ref h 'blocksize))
-        (hash-set! kinds type #t)
-        (when (procedure? cb-audio)
-          (cb-audio h buffers))
-        ))
+      (set! last-buffer buffer)
+      (set! last-buf-len block-size)
+      (hash-set! kinds type #t)
+      (when (procedure? cb-audio)
+        (cb-audio h buffer block-size))
+      )
    #t
    )