diff --git a/playlist.rkt b/playlist.rkt index b40b1a2..ba9f6cb 100644 --- a/playlist.rkt +++ b/playlist.rkt @@ -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)) ) )