ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-26 06:18:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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 @@ (define-public uftrace
(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 @@ (define-public uftrace
(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"))