cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix the implementation of par-map&

Browse source 
It was pretty wrong...
This commit is contained in:
Christopher Baines 2020-10-04 13:22:35 +01:00
parent d2646e7110
commit 93c9813546
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
guix-data-service/utils.scm
View file

@ -133,9 +133,11 @@
(let loop ((lists lists)) (let loop ((lists lists))
(match lists (match lists
(((heads tails ...) ...) (((heads tails ...) ...)
(let ((tail (defer-to-thread-pool-channel (loop tails))) (let ((tail (loop tails))
(head (apply proc heads))) (head (defer-to-thread-pool-channel
(cons head (fetch-result-of-defered-thunk tail)))) (lambda ()
(apply proc heads)))))
(cons (fetch-result-of-defered-thunk head) tail)))
(_ (_
'()))))) '())))))