From 4379c6666d9fd9dbd4ff5d900ed072281afbf209 Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Sat, 30 Jun 2012 13:02:55 +0200
Subject: Minor style adjustments

---
 gitto.scm | 21 ++++++++++-----------
 1 file changed, 10 insertions(+), 11 deletions(-)

(limited to 'gitto.scm')

diff --git a/gitto.scm b/gitto.scm
index 4d4d0ef..177f924 100755
--- a/gitto.scm
+++ b/gitto.scm
@@ -55,8 +55,7 @@ gitto [options]
 (define (register-repository repository)
   (if (not (member repository repositories))
       (begin
-        (set! repositories (append `(,repository)
-                                   repositories))
+        (set! repositories (append `(,repository) repositories))
         (save-repositories-list)
         (simple-format #t "Repository ~A registered." repository))
       (display "Repository already registered."))
@@ -72,21 +71,21 @@ gitto [options]
   (newline))
 
 (define (git-revs-to-push)
-  (let* ((response (open-input-pipe "git log --pretty=oneline @{u}.. | wc -l"))
-         (num (string->number (read-line response))))
-    (close-pipe response)
+  (let* ((pp (open-input-pipe "git log --pretty=oneline @{u}.. | wc -l"))
+         (num (string->number (read-line pp))))
+    (close-pipe pp)
     num))
 
 (define (git-revs-to-pull)
-  (let* ((response (open-input-pipe "git log --pretty=oneline ..@{u} | wc -l"))
-         (num (string->number (read-line response))))
-    (close-pipe response)
+  (let* ((pp (open-input-pipe "git log --pretty=oneline ..@{u} | wc -l"))
+         (num (string->number (read-line pp))))
+    (close-pipe pp)
     num))
 
 (define (git-clean?)
-  (let* ((response (open-input-pipe "git status -suno"))
-         (clean? (eof-object? (read-delimited "" response))))
-    (close-pipe response)
+  (let* ((pipe (open-input-pipe "git status -suno"))
+         (clean? (eof-object? (read-delimited "" pipe))))
+    (close-pipe pipe)
     clean?))
 
 (define (list-repositories)
-- 
cgit v1.2.3-54-g00ecf