summaryrefslogtreecommitdiff
path: root/guix/build-system
diff options
context:
space:
mode:
authorJan Nieuwenhuizen <janneke@gnu.org>2019-12-02 23:59:57 +0100
committerLudovic Courtès <ludo@gnu.org>2020-01-04 23:44:25 +0100
commitf851fd6b2b4f8e23445aba863f2f063a251f2d9a (patch)
treeeab0cd453165e80f68a5d898c6d6a766b60f60a5 /guix/build-system
parent92afa57b9311812fd9e44a90939e0137e2180d11 (diff)
build-system/guile: Add #:implicit-inputs?.
* guix/build-system/guile.scm (lower): Add implicit-inputs? keyword parameter. [private-keywords]: Add it. Honor it.
Diffstat (limited to 'guix/build-system')
-rw-r--r--guix/build-system/guile.scm10
1 files changed, 7 insertions, 3 deletions
diff --git a/guix/build-system/guile.scm b/guix/build-system/guile.scm
index 2c5cc968ce..3693014694 100644
--- a/guix/build-system/guile.scm
+++ b/guix/build-system/guile.scm
@@ -36,6 +36,7 @@
(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 @@
;; 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 @@
`(("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))))