diff options
author | Tom Willemsen | 2012-09-18 19:38:30 +0200 |
---|---|---|
committer | Tom Willemsen | 2012-09-18 19:38:30 +0200 |
commit | b66ceb70f7873699261dbe8df76c638f9d8f99fe (patch) | |
tree | 1c19d09f222e81e4455e9a496956df9967245944 | |
parent | 963c85b479607464b2834655c196ec520fcca30d (diff) | |
download | gitto-b66ceb70f7873699261dbe8df76c638f9d8f99fe.tar.gz gitto-b66ceb70f7873699261dbe8df76c638f9d8f99fe.zip |
Don't fail with no-longer existing repos
When a repo is in the repositories list, but not where it should be,
don't care, if we know it, delete it.
Don't require the argument for delete to exist on the filesystem.
-rw-r--r-- | gitto/main.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gitto/main.scm b/gitto/main.scm index ea977d8..e32ba8c 100644 --- a/gitto/main.scm +++ b/gitto/main.scm @@ -98,7 +98,9 @@ gitto [options] (define (remove-repository repository) "Remove/unregister REPOSITORY from the repository list." - (set! repository (realpath repository)) + (unless (member repository repositories) + (set! repository (realpath repository))) + (if (member repository repositories) (begin (set! repositories (delete repository repositories)) @@ -170,7 +172,7 @@ to the tracked files. Utracked files will not register." `((version (single-char #\v)) (help (single-char #\h)) (register (single-char #\r) (value #t) (predicate ,git-dir?)) - (remove (single-char #\R) (value #t) (predicate ,git-dir?)) + (remove (single-char #\R) (value #t)) (repositories (single-char #\l)))) (define (main args) |