From a5792deca5ed0cded624dc1bb161450427a0a9d8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Mon, 20 Nov 2017 22:33:54 +0100
Subject: [PATCH] compile: Put an upper bound on the number of workers.

* guix/build/compile.scm (compile-files): Don't use more than 8 workers.
---
 guix/build/compile.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/guix/build/compile.scm b/guix/build/compile.scm
index 8b5a2faf8449373c7d1cdee9bd585a51953ff918..1bd8c60fe58547fa0428e19f9d2d81df0a4f90f5 100644
--- a/guix/build/compile.scm
+++ b/guix/build/compile.scm
@@ -163,7 +163,11 @@ files are for HOST, a GNU triplet such as \"x86_64-linux-gnu\"."
       ;; compile files in parallel.
       (compile #f)
 
-      (n-par-for-each workers build files)
+      ;; XXX: Don't use too many workers to work around the insane memory
+      ;; requirements of the compiler in Guile 2.2.2:
+      ;; <https://lists.gnu.org/archive/html/guile-devel/2017-05/msg00033.html>.
+      (n-par-for-each (min workers 8) build files)
+
       (unless (zero? total)
         (report-compilation #f total total)))))