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

[guix-commits]

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))))