Reordering FFI libs

libao/libao-async-ffi.rkt

@@ -3,9 +3,7 @@
 
 (require ffi/unsafe
          ffi/unsafe/define
-         setup/dirs
          "../utils/utils.rkt"
-         racket/runtime-path
          "libao-ffi.rkt"
          )
 
@@ -17,20 +15,8 @@
          ao_clear_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 lib '("0" #f)
-           #:get-lib-dirs (λ ()
-                            (let ((sp (cons (build-path ".") (get-lib-search-dirs))))
-                              ;(displayln sp)
-                              sp))
-           #:fail (λ () (error "Cannot load libao-play-async"))
-           ))
+(define lib (get-lib '("ao-play-async" "libao-play-async") '(#f)))
+(define-ffi-definer define-libao-async lib)
 
 (define _libao-async-handle-pointer (_cpointer 'ao-async-handle))