mp3 decoder documented

2026-04-22 14:10:57 +02:00
parent 57eea1b000
commit 9b0df72d33
7 changed files with 200 additions and 39 deletions
@@ -112,8 +112,8 @@
        (unless (or
                 (eq? total-samples #f)
                 (= total-samples -1))
-          (let ((sample (inexact->exact (round * (exact->inexact (/ percentage 100.0)) total-samples))))
-            ((mp3-handle-if handle) 'seek sample))
+          (let ((sample (inexact->exact (round (* (exact->inexact (/ percentage 100.0)) total-samples)))))
+            (set-mp3-handle-seek! handle sample))
          )
        )
      )