diff options
| author | Tobias Geerinckx-Rice <me@tobias.gr> | 2023-07-02 02:00:00 +0200 |
|---|---|---|
| committer | Tobias Geerinckx-Rice <me@tobias.gr> | 2023-07-02 02:00:11 +0200 |
| commit | bc93884523ca72c5078df3e7a4ecfd2ebf986af9 (patch) | |
| tree | c4756363f410c9c947c24b1fd5433433a10d9500 | |
| parent | 5237abd7ce558fe377652da95a6a83fac17c2ea1 (diff) | |
| download | guix-bc93884523ca72c5078df3e7a4ecfd2ebf986af9.tar.gz | |
gnu: uftrace: Use (ice-9 match).
* gnu/packages/instrumentation.scm (uftrace)[arguments]: Prefer MATCH over COND.
| -rw-r--r-- | gnu/packages/instrumentation.scm | 9 |
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")) |