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:
parent
5b14a7902c
commit
d343a60f93
@ -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)
|
||||||
|
Loading…
Reference in New Issue
Block a user