-

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