-

2026-02-23 19:00:25 +01:00
parent 3439bd8fdc
commit 7807a7a209
3 changed files with 13 additions and 1 deletions
--- a/play-test.rkt
+++ b/play-test.rkt
@@ -73,9 +73,11 @@
  (displayln meta))

 (define (play)
+  (set! ao-h #f)
  (let ((flac-h (flac-open test-file3 flac-meta flac-play)))
    (flac-read flac-h)
-    (ao-close ao-h)))
+    (ao-close ao-h)
+    (set! ao-h #f)))
    ;(sleep 1.0)
    ;(play)))