me
/
guix
Archived
1
0
Fork 0
Code

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

* guix/build-system/guile.scm (lower): Add implicit-inputs? keyword
parameter.
[private-keywords]: Add it.
Honor it.
master
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* (lower name (define* (lower name
#:key source inputs native-inputs outputs system target #:key source inputs native-inputs outputs system target
(implicit-inputs? #t)
#:allow-other-keys #:allow-other-keys
#:rest arguments) #:rest arguments)
"Return a bag for NAME." "Return a bag for NAME."
@ -45,7 +46,8 @@
;; procedures like 'package-for-guile-2.0' unchanged and simple. ;; procedures like 'package-for-guile-2.0' unchanged and simple.
(define private-keywords (define private-keywords
'(#:target #:inputs #:native-inputs)) '(#:target #:inputs #:native-inputs
#:implicit-inputs?))
(bag (bag
(name name) (name name)
@ -56,8 +58,10 @@
`(("source" ,source)) `(("source" ,source))
'()) '())
,@native-inputs ,@native-inputs
,@(map (cute assoc <> (standard-packages)) ,@(if implicit-inputs?
'("tar" "gzip" "bzip2" "xz" "locales")))) (map (cute assoc <> (standard-packages))
'("tar" "gzip" "bzip2" "xz" "locales"))
'())))
(outputs outputs) (outputs outputs)
(build (if target guile-cross-build guile-build)) (build (if target guile-cross-build guile-build))
(arguments (strip-keyword-arguments private-keywords arguments)))) (arguments (strip-keyword-arguments private-keywords arguments))))