diff options
Diffstat (limited to 'gitto/main.scm')
| -rw-r--r-- | gitto/main.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/gitto/main.scm b/gitto/main.scm index 32e50d3..e65275a 100644 --- a/gitto/main.scm +++ b/gitto/main.scm @@ -169,7 +169,7 @@ gitto [options] (set! repositories (append `(,repository) repositories)) (save-repositories-list) (simple-format #t "Repository ~A registered." - (repository-name repository))) + (repo-name repository))) (display "Repository already registered.")) (newline)) @@ -250,7 +250,10 @@ to the tracked files. Utracked files will not register." (define (purge) "Purge all items from the list that can no longer be found." - (set! repositories (filter file-exists? repositories)) + (set! repositories + (filter (lambda (repo) + (file-exists? (repo-location repo))) + repositories)) (save-repositories-list)) (define option-spec |