~ruther/guix-local: packages: Remove redundant test for inputs-as-procedures.

f153d891550986f72a6e10f48cd68fd558569815 — Ludovic Courtès 13 years ago c6dbd50

packages: Remove redundant test for inputs-as-procedures.

* guix/packages.scm (package-derivation)[expand-input]: Remove redundant
  test when the input is a procedure.

patch browse .tar.gz

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

M guix/packages.scm

M guix/packages.scm => guix/packages.scm +1 -5

@@ 280,11 280,7 @@ PACKAGE for SYSTEM."
       ;; package, then `transitive-inputs' and co. would need to be
       ;; adjusted.
       (let ((input (proc system)))
-        (if (or (string? input) (origin? input))
-            (expand-input (cons* name input sub-drv))
-            (raise (condition (&package-input-error
-                               (package package)
-                               (input   i)))))))
+        (expand-input (cons* name input sub-drv))))
      (x
       (raise (condition (&package-input-error
                          (package package)