From aba219af0fed6a349af930f19c913fb87e6a69dd Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Sat, 7 Oct 2017 16:34:59 +0200
Subject: pull: Honor 'parallel-job-count'.

* guix/build/pull.scm (build-guix): Use 'n-par-for-each' and honor
'parallel-job-count'.
---
 guix/build/pull.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'guix/build/pull.scm')

diff --git a/guix/build/pull.scm b/guix/build/pull.scm
index 03b0f925a7..1ae35ab382 100644
--- a/guix/build/pull.scm
+++ b/guix/build/pull.scm
@@ -178,7 +178,8 @@ containing the source code.  Write any debugging output to DEBUG-PORT."
         ;; Make sure compilation related modules are loaded before starting to
         ;; compile files in parallel.
         (compile #f)
-        (par-for-each
+        (n-par-for-each
+         (parallel-job-count)
          (lambda (file)
            (with-mutex mutex
              (display #\cr log-port)
-- 
cgit v1.2.3