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 be91042..a0cec3a 100644 --- a/gitto/git.scm +++ b/gitto/git.scm @@ -37,6 +37,7 @@ repo-location repo-name repository? + repository<? same-repository?)) (define show-unchanged-branches? #f) @@ -59,6 +60,10 @@ (define (repository? repo) (is-a? repo <repository>)) +(define (repository<? repo1 repo2) + "Compary REPO1 and REPO2 to see if REPO1 should be considered smaller." + (string<? (repo-location repo1) (repo-location repo2))) + (define-method (branch-pullable (branch <branch>)) (force (slot-ref branch 'pullable))) |