aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2016-12-19 17:13:21 +0100
committerLudovic Courtès <ludo@gnu.org>2016-12-19 17:51:00 +0100
commitd343a60f93cecb789f3366bac1f068f281c38d9f (patch)
tree4aa363dd903b486efa7d94f02800ef413e2855cb
parent5b14a7902c58d9fb7923f9e16871f549fbe59b6e (diff)
downloadgnu-guix-d343a60f93cecb789f3366bac1f068f281c38d9f.tar
gnu-guix-d343a60f93cecb789f3366bac1f068f281c38d9f.tar.gz
gexp: Slightly simplify 'gexp-inputs'.
* guix/gexp.scm (gexp-inputs)[add-reference-inputs]: Remove unneeded 'if' in the non-native nested gexp case.
-rw-r--r--guix/gexp.scm7
1 files 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-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)