TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

build-system/guile: Add #:implicit-inputs?.

Browse source 
* guix/build-system/guile.scm (lower): Add implicit-inputs? keyword
parameter.
[private-keywords]: Add it.
Honor it.
This commit is contained in:
Jan Nieuwenhuizen 2019-12-02 23:59:57 +01:00 committed by Ludovic Courtès
parent 92afa57b93
commit f851fd6b2b
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
guix/build-system/guile.scm
View file

@ -36,6 +36,7 @@ (define %guile-build-system-modules
(define* (lower name
#:key source inputs native-inputs outputs system target
(implicit-inputs? #t)
#:allow-other-keys
#:rest arguments)
"Return a bag for NAME."
@ -45,7 +46,8 @@ (define* (lower name
;; procedures like 'package-for-guile-2.0' unchanged and simple.
(define private-keywords
'(#:target #:inputs #:native-inputs))
'(#:target #:inputs #:native-inputs
#:implicit-inputs?))
(bag
(name name)
@ -56,8 +58,10 @@ (define private-keywords
`(("source" ,source))
'())
,@native-inputs
,@(map (cute assoc <> (standard-packages))
'("tar" "gzip" "bzip2" "xz" "locales"))))
,@(if implicit-inputs?
(map (cute assoc <> (standard-packages))
'("tar" "gzip" "bzip2" "xz" "locales"))
'())))
(outputs outputs)
(build (if target guile-cross-build guile-build))
(arguments (strip-keyword-arguments private-keywords arguments))))