~ruther/guix-local: gexp: Slightly simplify 'gexp-inputs'.

d343a60f93cecb789f3366bac1f068f281c38d9f — Ludovic Courtès 9 years ago 5b14a79

gexp: Slightly simplify 'gexp-inputs'.

* guix/gexp.scm (gexp-inputs)[add-reference-inputs]: Remove unneeded
'if' in the non-native nested gexp case.

patch browse .tar.gz

1 files changed, 2 insertions(+), 5 deletions(-)

M guix/gexp.scm

M guix/gexp.scm => guix/gexp.scm +2 -5

@@ 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)