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