wchar problem on windows solved.

2026-04-30 16:34:21 +02:00
parent 229485e40b
commit 856c790257
2 changed files with 8 additions and 0 deletions
@@ -76,12 +76,16 @@
        
        (unless valid?
          (when (eq? (system-type 'os) 'windows)
+            (dbg-sound "Could not open file ~a, trying wchar version on windows" file)
+            (unless (eq? tag-file #f)
+              (taglib_file_free tag-file))
            (set! tag-file (taglib_file_new_wchar file))
            (if (eq? tag-file #f)
                (set! valid? #f)
                (set! valid? (taglib_file_is_valid tag-file)))))

        (unless valid?
+          (warn-sound "Could not open file ~a" file)
          (unless (eq? tag-file #f)
            (taglib_file_free tag-file)
            (set! tag-file #f)))