diff options
| -rw-r--r-- | guix/derivations.scm | 20 |
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 <>))) |