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

* guix/packages.scm (package-derivation)[expand-input]: Remove redundant
  test when the input is a procedure.
This commit is contained in:
Ludovic Courtès 2013-01-22 00:14:04 +01:00
parent c6dbd50594
commit f153d89155

View file

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