summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-01-22 00:14:04 +0100
committerLudovic Courtès <ludo@gnu.org>2013-01-22 00:17:42 +0100
commitf153d891550986f72a6e10f48cd68fd558569815 (patch)
tree9bf993ec2502fd105aa53fbeb27a80f13086e03f
parentc6dbd5059454c0221a145cec5a74613fd2bccea7 (diff)
downloadpatches-f153d891550986f72a6e10f48cd68fd558569815.tar
patches-f153d891550986f72a6e10f48cd68fd558569815.tar.gz
packages: Remove redundant test for inputs-as-procedures.
* guix/packages.scm (package-derivation)[expand-input]: Remove redundant test when the input is a procedure.
-rw-r--r--guix/packages.scm6
1 files changed, 1 insertions, 5 deletions
diff --git a/guix/packages.scm b/guix/packages.scm
index da8f45af5e..a9534adfec 100644
--- 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)