From f851fd6b2b4f8e23445aba863f2f063a251f2d9a Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Mon, 2 Dec 2019 23:59:57 +0100 Subject: [PATCH] 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 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))))