01/01: installer: Clean up (gurses buttons) formatting.

[Danny Milosavljevic]

dannym pushed a commit to branch wip-installer-2
in repository guix.

commit 91c5bc3a8e98ae397eaabe50899189a1df926231
Author: Danny Milosavljevic <address@hidden>
Date:   Sun Jul 9 17:49:16 2017 +0200

    installer: Clean up (gurses buttons) formatting.
    
    * gurses/buttons.scm: Clean up formatting.
---
 gurses/buttons.scm | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/gurses/buttons.scm b/gurses/buttons.scm
index c3aad7a..73d23b4 100644
--- a/gurses/buttons.scm
+++ b/gurses/buttons.scm
@@ -120,10 +120,10 @@
    (list->array ;; FIXME: Populate the array directly instead of using temp 
list
     1
     (let loop ((bl (buttons-items buttons))
-              (i 0)
-              (alist '()))
+               (i 0)
+               (alist '()))
       (match bl
-             (()         (reverse alist))
+             (() (reverse alist))
              (((key raw-label use-underscore) . _)
               (let* (
                      ;; Convert the raw-label into a "complex rendered string" 
which
@@ -158,8 +158,7 @@
                 (buttons-set-bwindows! buttons (cons w (buttons-bwindows 
buttons)))
                 (box w   0 0)
                 (addchstr w label #:y 1 #:x 1)
-                (loop (cdr bl) (1+ i) (acons mark (list w key label) alist)))
-                ))))))
+                (loop (cdr bl) (1+ i) (acons mark (list w key label) 
alist)))))))))