[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/02: guile-build-system: Add #:implicit-inputs.
From: |
guix-commits |
Subject: |
01/02: guile-build-system: Add #:implicit-inputs. |
Date: |
Tue, 3 Dec 2019 17:41:08 -0500 (EST) |
janneke pushed a commit to branch wip-bootstrap
in repository guix.
commit 3a1d1052d24d282fe14fbe0c3243ccca5a0d91a0
Author: Jan Nieuwenhuizen <address@hidden>
Date: Mon Dec 2 23:59:57 2019 +0100
guile-build-system: Add #:implicit-inputs.
* guix/build-system/guile.scm (lower): Add implicit-inputs? keyword
parameter.
---
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))))