From bc93884523ca72c5078df3e7a4ecfd2ebf986af9 Mon Sep 17 00:00:00 2001
From: Tobias Geerinckx-Rice <me@tobias.gr>
Date: Sun, 2 Jul 2023 02:00:00 +0200
Subject: gnu: uftrace: Use (ice-9 match).

* gnu/packages/instrumentation.scm (uftrace)[arguments]:
Prefer MATCH over COND.
---
 gnu/packages/instrumentation.scm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'gnu/packages/instrumentation.scm')

diff --git a/gnu/packages/instrumentation.scm b/gnu/packages/instrumentation.scm
index 4969f52e66..9d658aa4c9 100644
--- a/gnu/packages/instrumentation.scm
+++ b/gnu/packages/instrumentation.scm
@@ -552,6 +552,9 @@ whole-system symbolic access, and can also handle simple tracing jobs.")
     (build-system gnu-build-system)
     (arguments
      (list
+      #:modules
+      `((ice-9 match)
+        ,@%gnu-build-system-modules)
       #:make-flags
       #~(list
          (string-append "CC=" #$(cc-for-target)))
@@ -568,9 +571,9 @@ whole-system symbolic access, and can also handle simple tracing jobs.")
                               (or (%current-target-system)
                                   (%current-system))))))
                 (setenv "ARCH"
-                        (cond
-                         ((string=? arch "arm64") "aarch64")
-                         (else arch)))
+                        (match arch
+                          ("arm64" "aarch64")
+                          (_ arch)))
                 (when target
                   (setenv "CROSS_COMPILE" (string-append target "-"))))
               (setenv "SHELL" (which "sh"))
-- 
cgit v1.2.3