Merge branch 'main' of https://git.dijkewijk.nl/hans/racket-sound

2026-04-06 12:31:17 +02:00
parent 83c6de6e60 dd174469d9
commit 0b86b8712e
6 changed files with 58 additions and 25 deletions
--- a/taglib.rkt
+++ b/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))