check if file exists
This commit is contained in:
+2
-1
@@ -305,7 +305,8 @@
|
||||
(let ((value (send store get entry (list "Default" '()))))
|
||||
(set! name (car value))
|
||||
(list-for-each (λ (file)
|
||||
(send this add-track file #f))
|
||||
(when (file-exists? file)
|
||||
(send this add-track file #f)))
|
||||
(cadr value))
|
||||
)
|
||||
)
|
||||
|
||||
Reference in New Issue
Block a user