summaryrefslogtreecommitdiff
path: root/gnu
diff options
context:
space:
mode:
authorTobias Geerinckx-Rice <me@tobias.gr>2023-07-02 02:00:00 +0200
committerTobias Geerinckx-Rice <me@tobias.gr>2023-07-02 02:00:11 +0200
commitbc93884523ca72c5078df3e7a4ecfd2ebf986af9 (patch)
treec4756363f410c9c947c24b1fd5433433a10d9500 /gnu
parent5237abd7ce558fe377652da95a6a83fac17c2ea1 (diff)
gnu: uftrace: Use (ice-9 match).
* gnu/packages/instrumentation.scm (uftrace)[arguments]: Prefer MATCH over COND.
Diffstat (limited to 'gnu')
-rw-r--r--gnu/packages/instrumentation.scm9
1 files changed, 6 insertions, 3 deletions
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"))