diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-01-22 00:14:04 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-01-22 00:17:42 +0100 |
| commit | f153d891550986f72a6e10f48cd68fd558569815 (patch) | |
| tree | 9bf993ec2502fd105aa53fbeb27a80f13086e03f | |
| parent | c6dbd5059454c0221a145cec5a74613fd2bccea7 (diff) | |
| download | gnu-guix-f153d891550986f72a6e10f48cd68fd558569815.tar gnu-guix-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.scm | 6 |
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) |