cbaines pushed a commit to branch master
in repository data-service.
commit b8bd56a8f5441bb45f0f3731987fda27ccd9674f
Author: Christopher Baines <[email protected]>
AuthorDate: Thu Jan 18 14:40:48 2024 +0000
Fix par-map&
To actually work in parallel.
---
guix-data-service/utils.scm | 22 ++++++++++++----------
1 file changed, 12 insertions(+), 10 deletions(-)
diff --git a/guix-data-service/utils.scm b/guix-data-service/utils.scm
index 09f47f8..5d7d4ba 100644
--- a/guix-data-service/utils.scm
+++ b/guix-data-service/utils.scm
@@ -479,16 +479,18 @@ available. Return the resource once PROC has returned."
(define (par-mapper' mapper cons)
(lambda (proc . lists)
- (let loop ((lists lists))
- (match lists
- (((heads tails ...) ...)
- (let ((tail (loop tails))
- (head (defer-to-parallel-fiber
- (lambda ()
- (apply proc heads)))))
- (cons (fetch-result-of-defered-thunks head) tail)))
- (_
- '())))))
+ (apply
+ fetch-result-of-defered-thunks
+ (let loop ((lists lists))
+ (match lists
+ (((heads tails ...) ...)
+ (let ((tail (loop tails))
+ (head (defer-to-parallel-fiber
+ (lambda ()
+ (apply proc heads)))))
+ (cons head tail)))
+ (_
+ '()))))))
(define par-map& (par-mapper' map cons))
