02/02: installer: Clean up (gurses form) code formatting.

[Danny Milosavljevic]

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

commit d24ad1ab0d90b2eb5159ef32501e2eaa629cdbb3
Author: Danny Milosavljevic <address@hidden>
Date:   Sun Jul 9 17:50:55 2017 +0200

    installer: Clean up (gurses form) code formatting.
    
    * gurses/form.scm: Clean up code formatting.
---
 gurses/form.scm | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/gurses/form.scm b/gurses/form.scm
index 581e1b8..9a6563e 100644
--- a/gurses/form.scm
+++ b/gurses/form.scm
@@ -134,9 +134,9 @@ label eq? to N"
 (define* (make-form items #:optional (callback #f))
   (let ((form (make-form' 0 #t callback)))
     (form-set-items! form
-                    (list->array
-                     1 (map-in-order
-                        (lambda (x)
+                     (list->array
+                     1 (map-in-order
+                         (lambda (x)
                            (match x
                                   ((symbol label (? list? things))
                                    (let ((width (apply max
@@ -156,10 +156,9 @@ label eq? to N"
                                    (make-field symbol label size #f #f "" 0 
#f))
                                   ((symbol label (? integer? size) validator)
                                    (make-field symbol label size #f #f "" 0 
validator))))
-                        items)))
+                         items)))
     form))
 
-
 (define (form-enter form ch)
   (define (redraw-current-field form field)
     (redraw-field form field (form-current-item form)))
@@ -390,7 +389,7 @@ Set the field value to the newly selected value."
 
     (form-update-cursor form))
 
-(define (form-refresh form) ; TODO redraw labels
+(define (form-refresh form)
   (erase (form-window form))
   (form-redraw-labels form)
   (let loop ((fields (form-items form))