hans/racket-sound
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

-

Browse Source
This commit is contained in:
Hans Dijkema
2026-02-26 17:46:07 +01:00
parent 0a2516df1e
commit dd174469d9
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
libtag/taglib.rkt
View File

@@ -67,7 +67,9 @@
(disc-number -1) (disc-number -1)
(picture #f)) (picture #f))
(let ((tag-file (taglib_file_new file))) (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? (when valid?
(let ((tag (taglib_file_tag tag-file)) (let ((tag (taglib_file_tag tag-file))
(ap (taglib_file_audioproperties tag-file)) (ap (taglib_file_audioproperties tag-file))