Make sure libao-1.2.2 is loaded in windows.

libao-async-ffi.rkt

@@ -4,7 +4,7 @@
 (require ffi/unsafe
          ffi/unsafe/define
          "private/utils.rkt"
-         "libao-ffi.rkt"
+         ;"libao-ffi.rkt"
          )
 
 (provide ao_create_async
@@ -48,6 +48,9 @@
    ))
 
 
+(when (eq? (system-type 'os) 'windows)
+  (void (get-lib '("libao-1.2.2") '(#f))))
+
 (define lib (get-lib '("ao-play-async" "libao-play-async") '(#f)))
 ;(define lib (ffi-lib "/home/hans/src/racket/racket-sound-lib/lib/linux-x86_64/libao-play-async.so"))
 (define-ffi-definer define-libao-async lib

play-test.rkt

@@ -7,6 +7,7 @@
          )
 
 (define test-file3 #f)
+(define test-file3-id 3)
 (let ((os (system-type 'os)))
   (when (eq? os 'unix)
     (set! test-file3 "/muziek/Klassiek-Viool/Alina Ibragimova/Paganini_24 Caprices (2021)/24. 24 Caprices, Op 1 - No. 24 in A minor- Tema con variazioni. Quasi presto.flac"))
@@ -37,7 +38,7 @@
     (when (eq? ao-h #f)
       (set! ao-h (ao-open-live bits-per-sample rate channels 'big-endian)))
     ;(displayln 'ao-play)
-    (ao-play ao-h second duration buffer buf-len 'flac)
+    (ao-play ao-h test-file3-id second duration buffer buf-len 'flac)
     ;(displayln 'done)
     (let ((second-printer (λ (buf-seconds)
                             (let ((s (inexact->exact (round (ao-at-second ao-h)))))