From d343a60f93cecb789f3366bac1f068f281c38d9f Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Mon, 19 Dec 2016 17:13:21 +0100 Subject: gexp: Slightly simplify 'gexp-inputs'. * guix/gexp.scm (gexp-inputs)[add-reference-inputs]: Remove unneeded 'if' in the non-native nested gexp case. --- guix/gexp.scm | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/guix/gexp.scm b/guix/gexp.scm index 5021688ac7..6f63afe6a6 100644 --- a/guix/gexp.scm +++ b/guix/gexp.scm @@ -669,11 +669,8 @@ references; otherwise, return only non-native references." result) result)) (($ (? gexp? exp) _ #f) - (if native? - (append (gexp-inputs exp #:native? #t) - result) - (append (gexp-inputs exp) - result))) + (append (gexp-inputs exp #:native? native?) + result)) (($ (? string? str)) (if (direct-store-path? str) (cons `(,str) result) -- cgit v1.2.3