tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-09 22:50:34 +02:00
Code Activity

gnu: make-gcc-toolchain: Improve style.

Browse Source 
* gnu/packages/commencement.scm (make-gcc-toolchain)[arguments]:
Improve style, use G-expressions.

Change-Id: Ib030b50f4c184d4762ced12e450d643cb016690f
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Merges: #7406
This commit is contained in:
Nicolas Graves
2026-03-20 10:49:33 +01:00
committed by Ludovic Courtès
parent 7321e7a8e2
commit 51a5bbb2ef
1 changed files with 18 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
gnu/packages/commencement.scm
View File

@@ -3660,27 +3660,25 @@ COREUTILS-FINAL vs. COREUTILS, etc."
(source #f)
(build-system trivial-build-system)
(arguments
'(#:modules ((guix build union))
#:builder (begin
(use-modules (ice-9 match)
(srfi srfi-1)
(srfi srfi-26)
(guix build union))
(list
#:modules '((guix build union))
#:builder
#~(begin
(use-modules (ice-9 match)
(srfi srfi-1)
(srfi srfi-26)
(guix build union))
(let ((out (assoc-ref %outputs "out")))
(union-build out
(filter-map (match-lambda
(("libc-debug" . _) #f)
(("libc-static" . _) #f)
((_ . directory) directory))
%build-inputs))
(union-build (assoc-ref %outputs "debug")
(list (assoc-ref %build-inputs
"libc-debug")))
(union-build (assoc-ref %outputs "static")
(list (assoc-ref %build-inputs
"libc-static")))))))
(union-build #$output
(filter-map (match-lambda
(("libc-debug" . _) #f)
(("libc-static" . _) #f)
((_ . directory) directory))
%build-inputs))
(union-build #$output:debug
(list (assoc-ref %build-inputs "libc-debug")))
(union-build #$output:static
(list (assoc-ref %build-inputs "libc-static"))))))
(native-search-paths
(append (package-native-search-paths gcc)