me
/
guix
Archived
1
0
Fork 0
Code

gexp: Slightly simplify 'gexp-inputs'. 

* guix/gexp.scm (gexp-inputs)[add-reference-inputs]: Remove unneeded
'if' in the non-native nested gexp case.
master
Ludovic Courtès 2016-12-19 17:13:21 +01:00
parent 5b14a7902c
commit d343a60f93
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
guix/gexp.scm
View File

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