~ruther/guix-local: gnu: boxes: Match over CAR/CDR.

980146637ceed18e1d72900ea95bc61a8367d7fa — Tobias Geerinckx-Rice 5 years ago ed0215d

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.

patch browse .tar.gz .zip

1 files changed, 11 insertions(+), 7 deletions(-)

M gnu/packages/shellutils.scm

M gnu/packages/shellutils.scm => gnu/packages/shellutils.scm +11 -7

@@ 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)