pull: Honor 'parallel-job-count'.

* guix/build/pull.scm (build-guix): Use 'n-par-for-each' and honor 'parallel-job-count'.
2017-10-07 16:34:59 +02:00 · 2017-10-07 16:34:59 +02:00 · aba219af0f
parent 1f3ea89871
commit aba219af0f
1 changed files with 2 additions and 1 deletions
--- a/guix/build/pull.scm
+++ b/guix/build/pull.scm
@ -178,7 +178,8 @@ (define* (build-guix out source
        ;; 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)