diff options
Diffstat (limited to 'gitto/git.scm')
-rw-r--r-- | gitto/git.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gitto/git.scm b/gitto/git.scm index 3f760e2..fc40077 100644 --- a/gitto/git.scm +++ b/gitto/git.scm @@ -40,6 +40,7 @@ repository-location<? repository-location-exists? repository-name<? + repository-name=? same-repository?)) (define show-unchanged-branches? #f) @@ -74,6 +75,10 @@ "Compare REPO1 and REPO2 to see if REPO1 should be considered less." (string<? (repo-name repo1) (repo-name repo2))) +(define (repository-name=? repo name) + "Company the name of REPO1 to NAME and determine equality." + (string= (repo-name repo) name)) + (define-method (branch-pullable (branch <branch>)) (force (slot-ref branch 'pullable))) |