-

player.rkt

@@ -18,7 +18,8 @@
                 [buffer-max-seconds 10]
                 [buffer-min-seconds 4]
                 )
-
+    (define use-ao #t)
+    
     (define pl #f)
     (define state 'stopped)
     (define track -1)
@@ -51,10 +52,11 @@
           (displayln (format "current-rate = ~a, current-bits = ~a, current-channels = ~a, ao-handle = ~a"
                             current-rate current-bits current-channels ao-handle))
           (displayln "Opening ao-handle")
-          (let ((fmt (ao-mk-format current-bits current-rate current-channels 'big-endian)))
-            (set! ao-handle (ao-open-live #f fmt))
-            (start-play-time-updater)
-            )
+          (when use-ao
+            (let ((fmt (ao-mk-format current-bits current-rate current-channels 'big-endian)))
+              (set! ao-handle (ao-open-live #f fmt))
+              (start-play-time-updater)
+              ))
           )
         )
       )