05/09: derivations: Improve complexity of 'substitution-oracle'.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit b59df2434aafb8604df38662be1b428bd19b80d6
Author: Ludovic Courtès <address@hidden>
Date:   Wed Jul 22 18:31:51 2015 +0200

    derivations: Improve complexity of 'substitution-oracle'.
    
    * guix/derivations.scm (substitution-oracle): Use a final 'concatenate'
      instead of repeated 'append's.
---
 guix/derivations.scm |   20 ++++++++++----------
 1 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/guix/derivations.scm b/guix/derivations.scm
index f12127f..d694ccf 100644
--- a/guix/derivations.scm
+++ b/guix/derivations.scm
@@ -264,16 +264,16 @@ substituter many times."
                 (derivation-prerequisites drv valid-input?)))
 
   (let* ((paths (delete-duplicates
-                 (fold (lambda (drv result)
-                         (let ((self (match (derivation->output-paths drv)
-                                       (((names . paths) ...)
-                                        paths))))
-                           (if (every valid? self)
-                               result
-                               (append (append self (dependencies drv))
-                                       result))))
-                       '()
-                       drv)))
+                 (concatenate
+                  (fold (lambda (drv result)
+                          (let ((self (match (derivation->output-paths drv)
+                                        (((names . paths) ...)
+                                         paths))))
+                            (if (every valid? self)
+                                result
+                                (cons* self (dependencies drv) result))))
+                        '()
+                        drv))))
          (subst (list->set (substitutable-paths store paths))))
     (cut set-contains? subst <>)))