Encoder testing

2026-06-08 12:14:32 +02:00
parent 444d62edac
commit d6aa880104
6 changed files with 261 additions and 61 deletions
@@ -703,7 +703,7 @@
 (define (bool->flac-bool v) (if v 1 0))

 (define (native-signed-ref bs start bytes)
-  (integer-bytes->integer bs #t (system-big-endian?) start (+ start bytes)))
+  (int-bytes->integer bs #t (system-big-endian?) start (+ start bytes)))

 (define (scale-sample sample in-bits out-bits)
  (cond [(> in-bits out-bits) (arithmetic-shift sample (- out-bits in-bits))]