From 4a0a0b9f96c37f85d7904ca1af2e8de69a19e11c Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Thu, 19 Feb 2026 20:26:41 +0100 Subject: [PATCH] - --- libtag/taglib-ffi.rkt | 19 ++++++++++--------- 1 file changed, 10 insertions(+), 9 deletions(-) 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