diff options
Diffstat (limited to 'gitto/main.scm')
-rw-r--r-- | gitto/main.scm | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/gitto/main.scm b/gitto/main.scm index 0bd30a9..f8eeb18 100644 --- a/gitto/main.scm +++ b/gitto/main.scm @@ -43,13 +43,12 @@ (define (list-repository-locations) "List the registered locations of repositories." - (for-each - (lambda (repo) - (display (repo-location repo)) - (newline)) - (sort repositories - (lambda (s1 s2) - (string<? (repo-location s1) (repo-location s2)))))) + (for-each print-repository-location (sort repositories repository<?))) + +(define (print-repository-location repo) + "Print the location of REPO." + (display (repo-location repo)) + (newline)) (define (registered? repo) "Check if REPO has been registered." |