[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/04: build-system/guile: Add #:implicit-inputs?.
From: |
guix-commits |
Subject: |
01/04: build-system/guile: Add #:implicit-inputs?. |
Date: |
Sat, 4 Jan 2020 17:45:06 -0500 (EST) |
civodul pushed a commit to branch master
in repository guix.
commit f851fd6b2b4f8e23445aba863f2f063a251f2d9a
Author: Jan Nieuwenhuizen <address@hidden>
Date: Mon Dec 2 23:59:57 2019 +0100
build-system/guile: Add #:implicit-inputs?.
* guix/build-system/guile.scm (lower): Add implicit-inputs? keyword
parameter.
[private-keywords]: Add it.
Honor it.
---
guix/build-system/guile.scm | 10 +++++++---
1 file changed, 7 insertions(+), 3 deletions(-)
diff --git a/guix/build-system/guile.scm b/guix/build-system/guile.scm
index 2c5cc96..3693014 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))))