fix files-in-directory
This commit is contained in:
parent
fc1bc74b10
commit
531e459af1
@ -9,7 +9,7 @@
|
|||||||
(closedir dir)
|
(closedir dir)
|
||||||
files)
|
files)
|
||||||
(else
|
(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)
|
#(define (file-to-stats filename)
|
||||||
(set! song-list (cons filename song-list)))
|
(set! song-list (cons filename song-list)))
|
||||||
|
Loading…
x
Reference in New Issue
Block a user