finally a working libao-async racket backend

2026-05-07 14:17:55 +02:00
parent a59c3b7c41
commit a30111ecf5
3 changed files with 254 additions and 76 deletions
@@ -46,7 +46,7 @@
         (bytes-per-sample-all-channels (* channels bytes-per-sample))
         (duration (hash-ref buf-info 'duration))
         (cond-seek (λ ()
-                      (when (= (round current-seconds) 10)
+                      (when (>= (round current-seconds) 10)
                        (when (and (= current-file-id 3) (not seeked))
                          (set! seeked #t)
                          (let ((perc (exact->inexact (* (/ (- duration 15) duration) 100.0))))