ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-25 20:19:18 -05: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)) …).

(cherry picked from commit 524a4e357c)
This commit is contained in:
Ludovic Courtès 2020-04-04 22:50:55 +02:00 committed by Marius Bakke
parent a533c5a183
commit be1e842ad7
No known key found for this signature in database
GPG key ID: A2A06DF2A33A54FA
1 changed files with 57 additions and 57 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -479,12 +479,12 @@ (define* (cross-libc target
(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
@ -541,7 +541,7 @@ (define* (cross-libc target
"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