-

play-test.rkt

@@ -15,6 +15,7 @@
     )
   )
 
+(ao-set-async-mode! 'scheme)
 ;(define fmt (ao-mk-format 24 48000 2 'big-endian))
 ;(define ao-h (ao-open-live #f fmt))
 
@@ -34,7 +35,7 @@
     (when (eq? ao-h #f)
       (let ((fmt (ao-mk-format bits-per-sample rate channels 'big-endian)))
         (set! ao-h (ao-open-live #f fmt))))
-    (ao-play ao-h second buffer)
+    (ao-play ao-h second duration buffer)
     (let ((second-printer (λ ()
                             (let ((s (inexact->exact (round (ao-at-second ao-h)))))
                               (unless (= s current-seconds)