-

2026-02-26 17:46:07 +01:00
parent 0a2516df1e
commit dd174469d9
1 changed files with 3 additions and 1 deletions
--- a/libtag/taglib.rkt
+++ b/libtag/taglib.rkt
@@ -67,7 +67,9 @@
          (disc-number -1)
          (picture #f))
      (let ((tag-file (taglib_file_new file)))
-        (set! valid? (taglib_file_is_valid tag-file))
+        (if (eq? tag-file #f)
+            (set! valid? #f)
+            (set! valid? (taglib_file_is_valid tag-file)))
        (when valid?
          (let ((tag (taglib_file_tag tag-file))
                (ap (taglib_file_audioproperties tag-file))