diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-12-19 17:13:21 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-12-19 17:51:00 +0100 |
| commit | d343a60f93cecb789f3366bac1f068f281c38d9f (patch) | |
| tree | 4aa363dd903b486efa7d94f02800ef413e2855cb | |
| parent | 5b14a7902c58d9fb7923f9e16871f549fbe59b6e (diff) | |
| download | guix-d343a60f93cecb789f3366bac1f068f281c38d9f.tar 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.scm | 7 |
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) |