Fix par-map&

To actually work in parallel.

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))
+    (apply
-      (match lists
+     fetch-result-of-defered-thunks
-        (((heads tails ...) ...)
+     (let loop ((lists lists))
-         (let ((tail (loop tails))
+       (match lists
-               (head (defer-to-parallel-fiber
+         (((heads tails ...) ...)
-                       (lambda ()
+          (let ((tail (loop tails))
-                         (apply proc heads)))))
+                (head (defer-to-parallel-fiber
-           (cons (fetch-result-of-defered-thunks head) tail)))
+                        (lambda ()
-        (_
+                          (apply proc heads)))))
-         '())))))
+            (cons head tail)))
+         (_
+          '()))))))
 
 (define par-map& (par-mapper' map cons))