aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--guix/derivations.scm20
1 files changed, 10 insertions, 10 deletions
diff --git a/guix/derivations.scm b/guix/derivations.scm
index f12127f0ed..d694ccf6d4 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 <>)))