fix files-in-directory
This commit is contained in:
parent
fc1bc74b10
commit
531e459af1
@ -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)))
|
||||
|
Loading…
x
Reference in New Issue
Block a user