diff options
Diffstat (limited to 'gitto/main.scm')
-rw-r--r-- | gitto/main.scm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/gitto/main.scm b/gitto/main.scm index 3c82e49..7ccfb34 100644 --- a/gitto/main.scm +++ b/gitto/main.scm @@ -100,9 +100,12 @@ COMMAND." (define (known? repo) "Do we know REPO?" - (or (member repo repositories same-repository?) - (member (realpath (if (string? repo) repo (repo-location repo))) - repositories same-repository?))) + (and (or (repository? repo) (string? repo)) + (or (member repo repositories same-repository?) + (member (realpath (if (string? repo) + repo + (repo-location repo))) + repositories same-repository?)))) (define (save-repositories-list) "Save the list of repositories." |