fix files-in-directory

This commit is contained in:
tux 2025-04-27 01:47:53 +02:00
parent fc1bc74b10
commit 531e459af1

View File

@ -9,7 +9,7 @@
(closedir dir)
files)
(else
(next (readdir dir) (if (string-match "^(0|\\.)" f) files (cons f files))))))))
(next (readdir dir) (if (ly:regex-match? (ly:regex-exec (ly:make-regex "^(0|\\.)") f)) files (cons f files))))))))
#(define (file-to-stats filename)
(set! song-list (cons filename song-list)))