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

* guix/packages.scm (package-derivation)[expand-input]: Remove redundant test when the input is a procedure.
2013-01-22 00:14:04 +01:00 · 2013-01-22 00:14:04 +01:00 · f153d89155
parent c6dbd50594
commit f153d89155
1 changed files with 1 additions and 5 deletions
--- a/guix/packages.scm
+++ b/guix/packages.scm
@ -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)