From b66ceb70f7873699261dbe8df76c638f9d8f99fe Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Tue, 18 Sep 2012 19:38:30 +0200
Subject: 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.
---
 gitto/main.scm | 6 ++++--
 1 file 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)
-- 
cgit v1.3-2-g0d8e