amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: cross-base: Remove unneeded 'let'.

Browse source 
This is a followup to 102d307520.

* gnu/packages/cross-base.scm (cross-libc): Remove (let ((libc libc)) …).
This commit is contained in:
Ludovic Courtès 2020-04-04 22:50:55 +02:00
parent 0189574375
commit 524a4e357c
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 57 additions and 57 deletions
Download patch file Download diff file Expand all files Collapse all files

8
gnu/packages/cross-base.scm
View file

@ -469,12 +469,12 @@ and the cross tool chain."
(native-libc target libc (native-libc target libc
#:xgcc xgcc #:xgcc xgcc
#:xbinutils xbinutils) #:xbinutils xbinutils)
(let ((libc libc)) (package
(package (inherit libc) (inherit libc)
(name (string-append "glibc-cross-" target)) (name (string-append "glibc-cross-" target))
(arguments (arguments
(substitute-keyword-arguments (substitute-keyword-arguments
`(;; Disable stripping (see above.) `( ;; Disable stripping (see above.)
#:strip-binaries? #f #:strip-binaries? #f
;; This package is used as a target input, but it should not have ;; This package is used as a target input, but it should not have
@ -531,7 +531,7 @@ and the cross tool chain."
"cross-mig"))) "cross-mig")))
'()) '())
,@(package-inputs libc) ;FIXME: static-bash ,@(package-inputs libc) ;FIXME: static-bash
,@(package-native-inputs libc))))))) ,@(package-native-inputs libc))))))
(define* (native-libc target (define* (native-libc target
#:optional #:optional