TakeV/guix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

derivations: Improve complexity of 'substitution-oracle'.

Browse source 
* guix/derivations.scm (substitution-oracle): Use a final 'concatenate'
  instead of repeated 'append's.
This commit is contained in:
Ludovic Courtès 2015-07-22 18:31:51 +02:00
parent 1bd4e6db15
commit b59df2434a
1 changed files with 10 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
guix/derivations.scm
View file

@ -264,16 +264,16 @@ (define (dependencies drv)
(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 <>)))