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
@@ -21,7 +21,7 @@
    (set! test-file4 (build-path tests "mahler-2.ogg"))
    )
  (when (eq? os 'windows)
-    (set! test-file3 (build-path tests "idyll.flac"))
+    (set! test-file3 (build-path tests "idyll.mp3"))
    (set! test-file4 (build-path tests "idyll.flac"))
    )
  )
@@ -71,7 +71,7 @@
                        (when (= (round current-seconds) 40)
                          (ao-set-volume! ao-h 100))))
         )
-    
+
    (when (not (eq? ao-h #f))
      (when (not (and
                  (= current-bits bits-per-sample)