~ruther/guix-local: build-system/gnu: `package-with-explicit-inputs' skips non-GBS packages.

a3cff41dd1fbc1c860d9984c8e5666d02e0f07de — Ludovic Courtès 12 years ago 0de71c2

build-system/gnu: `package-with-explicit-inputs' skips non-GBS packages.

* guix/build-system/gnu.scm (package-with-explicit-inputs)[rewritten-input]:
  Leave P unchanged if its build system is not GNU-BUILD-SYSTEM.

patch browse .tar.gz

1 files changed, 5 insertions(+), 1 deletions(-)

M guix/build-system/gnu.scm

M guix/build-system/gnu.scm => guix/build-system/gnu.scm +5 -1

@@ 72,7 72,11 @@ builder, or the distro's final Guile when GUILE is #f."
       (memoize
        (match-lambda
         ((name (? package? p) sub-drv ...)
-         (cons* name (loop p) sub-drv))
+         ;; XXX: Check whether P's build system knows #:implicit-inputs, for
+         ;; things like `cross-pkg-config'.
+         (if (eq? (package-build-system p) gnu-build-system)
+             (cons* name (loop p) sub-drv)
+             (cons* name p sub-drv)))
         (x x))))
 
     (package (inherit p)