guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

08/26: gurses: form: Use match instead of car, cdr etc.


From: John Darrington
Subject: 08/26: gurses: form: Use match instead of car, cdr etc.
Date: Sun, 22 Jan 2017 12:09:24 +0000 (UTC)

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

commit bac86177f33aeaf37b9461b1743a120671a8256b
Author: John Darrington <address@hidden>
Date:   Tue Jan 17 13:30:07 2017 +0100

    gurses: form: Use match instead of car, cdr etc.
    
    * gurses/form.scm (make-form) : Replace car, cdr and cadr with match.
---
 gurses/form.scm |    6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/gurses/form.scm b/gurses/form.scm
index 58b0e4b..b2161b6 100644
--- a/gurses/form.scm
+++ b/gurses/form.scm
@@ -33,6 +33,7 @@
   #:export (get-current-field)
 
   #:use-module (ncurses curses)
+  #:use-module (ice-9 match)
   #:use-module (srfi srfi-9))
 
 (define-record-type <field>
@@ -112,7 +113,10 @@ label eq? to N"
     (form-set-items! form
                     (list->array
                      1 (map-in-order
-                        (lambda (x) (make-field (car x) (cadr x) (caddr x) "" 
0))
+                        (lambda (x)
+                           (match x
+                                  ((symbol label size)
+                                   (make-field symbol label size "" 0))))
                         items)))
     form))
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]