futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: uftrace: Use (ice-9 match).

Browse Source 
* gnu/packages/instrumentation.scm (uftrace)[arguments]:
Prefer MATCH over COND.
This commit is contained in:
Tobias Geerinckx-Rice 2023-07-02 02:00:00 +02:00
parent 5237abd7ce
commit bc93884523
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gnu/packages/instrumentation.scm
View File

@ -552,6 +552,9 @@ whole-system symbolic access, and can also handle simple tracing jobs.")
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
(list (list
#:modules
`((ice-9 match)
,@%gnu-build-system-modules)
#:make-flags #:make-flags
#~(list #~(list
(string-append "CC=" #$(cc-for-target))) (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) (or (%current-target-system)
(%current-system)))))) (%current-system))))))
(setenv "ARCH" (setenv "ARCH"
(cond (match arch
((string=? arch "arm64") "aarch64") ("arm64" "aarch64")
(else arch))) (_ arch)))
(when target (when target
(setenv "CROSS_COMPILE" (string-append target "-")))) (setenv "CROSS_COMPILE" (string-append target "-"))))
(setenv "SHELL" (which "sh")) (setenv "SHELL" (which "sh"))