mac os x instructions

play-test.rkt

@@ -123,6 +123,7 @@
         (cond-seek)
         (cond-volume)
         (when (> buf-seconds 5)
+          (info-sound "Reuse buf: ~a" (ao-reuse-buf-len-async ao-h))
           (letrec ((waiter (λ ()
                              (let ((buf-seconds-left (exact->inexact
                                                       (/ (ao-bufsize-async ao-h)
@@ -137,7 +138,9 @@
                                      (cond-seek)
                                      (waiter)))))
                              ))
-            (waiter))))
+            (waiter)
+            (info-sound "Reuse buf: ~a" (ao-reuse-buf-len-async ao-h))
+            )))
       )
     )
   )