diff options
author | 2014-03-01 21:17:53 +0100 | |
---|---|---|
committer | 2014-03-01 21:18:39 +0100 | |
commit | bc4555b0ddc450df72a109f5117048aff42aeb61 (patch) | |
tree | 1991e8bd6cb5cb9d3c7293d3a579f967ca6100d2 /gitto/main.scm | |
parent | dba15ac9904725795f1ec8d8d11dabfe843557ff (diff) | |
download | gitto-bc4555b0ddc450df72a109f5117048aff42aeb61.tar.gz gitto-bc4555b0ddc450df72a109f5117048aff42aeb61.zip |
Simplify purge command
Diffstat (limited to 'gitto/main.scm')
-rw-r--r-- | gitto/main.scm | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/gitto/main.scm b/gitto/main.scm index 212f5dc..a46b5e2 100644 --- a/gitto/main.scm +++ b/gitto/main.scm @@ -228,10 +228,7 @@ registered repository as absolute paths." Go through the list of registered repositories and remove all the ones which no longer point to a git repository." - (set! repositories - (filter (lambda (repo) - (file-exists? (repo-location repo))) - repositories)) + (set! repositories (filter repository-location-exists? repositories)) (save-repositories-list)) (define-command (remove repository) |