change to audio-player.rkt

2026-05-18 10:35:14 +02:00
parent fccf019fe7
commit e60ecaeaef
4 changed files with 188 additions and 370 deletions
@@ -16,7 +16,7 @@
          (not (string-prefix? name ".")))
        (if (eq? type 'file)
            (let* ((fn (string-downcase (format "~a" f)))
-                   (exts (audio-supported-extensions)))
+                   (exts (audio-known-exts?)))
              (let ((l (filter (λ (e) (string-suffix? fn (string-append "." e))) exts)))
                (not (null? l))))
            #f))))