gexp: Slightly simplify 'gexp-inputs'.

* guix/gexp.scm (gexp-inputs)[add-reference-inputs]: Remove unneeded
'if' in the non-native nested gexp case.
This commit is contained in:
Ludovic Courtès 2016-12-19 17:13:21 +01:00
parent 5b14a7902c
commit d343a60f93
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5

@ -669,11 +669,8 @@ references; otherwise, return only non-native references."
result) result)
result)) result))
(($ <gexp-input> (? gexp? exp) _ #f) (($ <gexp-input> (? gexp? exp) _ #f)
(if native? (append (gexp-inputs exp #:native? native?)
(append (gexp-inputs exp #:native? #t) result))
result)
(append (gexp-inputs exp)
result)))
(($ <gexp-input> (? string? str)) (($ <gexp-input> (? string? str))
(if (direct-store-path? str) (if (direct-store-path? str)
(cons `(,str) result) (cons `(,str) result)