diff --git a/libtag/taglib-ffi.rkt b/libtag/taglib-ffi.rkt index 03e749e..0b388be 100644 --- a/libtag/taglib-ffi.rkt +++ b/libtag/taglib-ffi.rkt @@ -45,20 +45,21 @@ ) -(define-ffi-definer define-tag-lib - (ffi-lib "tag" '("0" #f) - #:get-lib-dirs (lambda () - (cons (build-path ".") (get-lib-search-dirs))) - #:fail (lambda () - (ffi-lib (get-lib-path "tag.dll"))) - )) +;(define-ffi-definer define-tag-lib +; (ffi-lib "tag" '("0" #f) +; #:get-lib-dirs (lambda () +; (cons (build-path ".") (get-lib-search-dirs))) +; #:fail (lambda () +; (ffi-lib (get-lib-path "tag.dll"))) +; ))d (define-ffi-definer define-tag-c-lib - (ffi-lib "tag_c" '("0" "1" "2" #f) + (ffi-lib "libtag_c" '("2" #f) #:get-lib-dirs (lambda () (cons (build-path ".") (get-lib-search-dirs))) #:fail (lambda () - (ffi-lib (get-lib-path "tag_c.dll"))) + (let ((path (get-lib-path "tag_c.dll"))) + (ffi-lib path))) )) (define TagLib_File_Type