05/05: gnu: boxes: Match over CAR/CDR.

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit 980146637ceed18e1d72900ea95bc61a8367d7fa
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Thu Oct 21 22:18:38 2021 +0200

    gnu: boxes: Match over CAR/CDR.
    
    * gnu/packages/shellutils.scm (boxes)[arguments]: Import (ice-9 match)
    and use it to replace the 'install phases's CAR & CDR usage.
---
 gnu/packages/shellutils.scm | 18 +++++++++++-------
 1 file changed, 11 insertions(+), 7 deletions(-)

diff --git a/gnu/packages/shellutils.scm b/gnu/packages/shellutils.scm
index dd13d5d..3ded0ee 100644
--- a/gnu/packages/shellutils.scm
+++ b/gnu/packages/shellutils.scm
@@ -72,18 +72,22 @@
        #:make-flags (list (string-append "GLOBALCONF="
                                          (assoc-ref %outputs "out")
                                          "/etc/boxes-config"))
+       #:modules
+       ((ice-9 match)
+        ,@%gnu-build-system-modules)
        #:phases
        (modify-phases %standard-phases
          (delete 'configure)
          (replace 'install
            (lambda* (#:key outputs #:allow-other-keys)
-             (let ((dest (assoc-ref outputs "out")))
-               (for-each (lambda (x)
-                           (install-file (car x)
-                                         (string-append dest "/" (cdr x))))
-                         '(("out/boxes" . "bin")
-                           ("doc/boxes.1" . "share/man/man1")
-                           ("boxes-config" . "etc/")))))))))
+             (let ((out (assoc-ref outputs "out")))
+               (for-each (match-lambda
+                           ((source target)
+                            (install-file source
+                                          (string-append out "/" target))))
+                         '(("out/boxes"    "bin/")
+                           ("doc/boxes.1"  "share/man/man1/")
+                           ("boxes-config" "etc/")))))))))
     (native-inputs
      `(("bison" ,bison)
        ("flex" ,flex)