From f153d891550986f72a6e10f48cd68fd558569815 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Tue, 22 Jan 2013 00:14:04 +0100
Subject: [PATCH] packages: Remove redundant test for inputs-as-procedures.

* guix/packages.scm (package-derivation)[expand-input]: Remove redundant
  test when the input is a procedure.
---
 guix/packages.scm | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/guix/packages.scm b/guix/packages.scm
index da8f45af5e7..a9534adfec6 100644
--- a/guix/packages.scm
+++ b/guix/packages.scm
@@ -280,11 +280,7 @@ (define expand-input
       ;; 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)
-- 
GitLab