gexp: Slightly simplify 'gexp-inputs'.

* guix/gexp.scm (gexp-inputs)[add-reference-inputs]: Remove unneeded 'if' in the non-native nested gexp case.
2016-12-19 17:13:21 +01:00 · 2016-12-19 17:13:21 +01:00 · d343a60f93
commit d343a60f93
parent 5b14a7902c
1 changed files with 2 additions and 5 deletions
--- a/guix/gexp.scm
+++ b/guix/gexp.scm
@ -669,11 +669,8 @@ references; otherwise, return only non-native references."
                   result)
           result))
      (($ <gexp-input> (? gexp? exp) _ #f)
-       (if native?
-           (append (gexp-inputs exp #:native? #t)
-                   result)
-           (append (gexp-inputs exp)
-                   result)))
+       (append (gexp-inputs exp #:native? native?)
+               result))
      (($ <gexp-input> (? string? str))
       (if (direct-store-path? str)
           (cons `(,str) result)