path->string

2026-02-24 10:07:17 +01:00
parent 7807a7a209
commit 973f3f2a07
2 changed files with 14 additions and 12 deletions
--- a/libtag/taglib.rkt
+++ b/libtag/taglib.rkt
@@ -41,8 +41,9 @@
  (define-struct id3-picture
    (mimetype kind size bytes))

-  (define (id3-tags file)
-    (let ((valid? #f)
+  (define (id3-tags file*)
+    (let ((file (if (path? file*) (path->string file*) file*))
+          (valid? #f)
          (title "")
          (album "")
          (artist "")