04/07: gexp: Slightly simplify 'lower-inputs'.

[Ludovic Courtès]

civodul pushed a commit to branch wip-build-systems-gexp
in repository guix.

commit b32aadd99ec944247aa3989fa7b218af408a428f
Author: Ludovic Courtès <address@hidden>
Date:   Sat Mar 28 18:24:03 2015 +0100

    gexp: Slightly simplify 'lower-inputs'.
    
    * guix/gexp.scm (lower-inputs): Simplify first case by removing the
      'input' binding.
---
 guix/gexp.scm |   12 ++++++------
 1 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/guix/gexp.scm b/guix/gexp.scm
index 2492974..de8b7bb 100644
--- a/guix/gexp.scm
+++ b/guix/gexp.scm
@@ -204,12 +204,12 @@ the cross-compilation target triplet."
   (with-monad %store-monad
     (sequence %store-monad
               (map (match-lambda
-                    ((and ((? struct? thing) sub-drv ...) input)
-                     (mlet* %store-monad ((lower -> (lookup-compiler thing))
-                                          (drv (lower thing system target)))
-                       (return `(,drv ,@sub-drv))))
-                    (input
-                     (return input)))
+                     (((? struct? thing) sub-drv ...)
+                      (mlet* %store-monad ((lower -> (lookup-compiler thing))
+                                           (drv (lower thing system target)))
+                        (return `(,drv ,@sub-drv))))
+                     (input
+                      (return input)))
                    inputs))))
 
 (define* (lower-reference-graphs graphs #:key system target)