-

2026-02-23 00:58:54 +01:00
parent 6868138754
commit af319b7bd3
9 changed files with 119 additions and 52 deletions
--- a/libao/libao-async-ffi.rkt
+++ b/libao/libao-async-ffi.rkt
@@ -16,10 +16,14 @@
         ao_bufsize_async
         )

-(define-runtime-path libao-async-path "./lib/libao-play-async")
+(define-runtime-path libao-async-lib-path "./lib")
+
+(define lib (if (eq? (system-type 'os) 'windows)
+                (build-path libao-async-lib-path "ao-play-async")
+                (build-path libao-async-lib-path "libao-play-async")))

 (define-ffi-definer define-libao-async
-  (ffi-lib libao-async-path '("0" #f)
+  (ffi-lib lib '("0" #f)
           #:get-lib-dirs (λ ()
                            (let ((sp (cons (build-path ".") (get-lib-search-dirs))))
                              ;(displayln sp)