Simplify save-repositories-list

Simplify `save-repositories-list' by extracting some of the
functionality into its own procedures.

Since there is now a `repository-name<?' procedure the `repository<?'
procedure is renamed to `repository-location<?' for clarity and
accuracy, since that is what it really checks.

1 files changed, 8 insertions, 3 deletions

diff --git a/gitto/git.scm b/gitto/git.scm
index a0cec3a..c7b2cdf 100644
--- a/gitto/git.scm
+++ b/gitto/git.scm
@@ -37,7 +37,8 @@
             repo-location
             repo-name
             repository?
-            repository<?
+            repository-location<?
+            repository-name<?
             same-repository?))
 
 (define show-unchanged-branches? #f)
@@ -60,10 +61,14 @@
 (define (repository? repo)
   (is-a? repo <repository>))
 
-(define (repository<? repo1 repo2)
-  "Compary REPO1 and REPO2 to see if REPO1 should be considered smaller."
+(define (repository-location<? repo1 repo2)
+  "Compary REPO1 and REPO2 to see if REPO1 should be considered less."
   (string<? (repo-location repo1) (repo-location repo2)))
 
+(define (repository-name<? repo1 repo2)
+  "Compare REPO1 and REPO2 to see if REPO1 should be considered less."
+  (string<? (repo-name repo1) (repo-name repo2)))
+
 (define-method (branch-pullable (branch <branch>))
   (force (slot-ref branch 'pullable)))