From 145aa7f04b1c61e52f61bca039350e898e20aac8 Mon Sep 17 00:00:00 2001
From: Marius Bakke <marius@gnu.org>
Date: Mon, 19 Dec 2022 07:46:47 +0100
Subject: gnu: SeaBIOS: Build in parallel.

* gnu/packages/firmware.scm (seabios)[arguments]: Use N-PAR-FOR-EACH to build
the various targets.
---
 gnu/packages/firmware.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/firmware.scm b/gnu/packages/firmware.scm
index 79d4442487..7239b85cb2 100644
--- a/gnu/packages/firmware.scm
+++ b/gnu/packages/firmware.scm
@@ -426,6 +426,7 @@ (define-public seabios
       #~'("EXTRAVERSION=-guix"          ;upstream wants distros to set this
           "V=1")                        ;build verbosely
       #:modules `(,@%gnu-build-system-modules
+                  (ice-9 threads)
                   (ice-9 match))
       #:phases
       #~(modify-phases %standard-phases
@@ -477,7 +478,7 @@ (define-public seabios
                        ("isavga" . ("VGA_BOCHS=y" "VGA_PCI=n"))
                        ("ramfb"  . ("VGA_RAMFB=y" "VGA_PCI=n")))))
                 (mkdir "out")
-                (for-each
+                (n-par-for-each (parallel-job-count)
                  (match-lambda
                    ((target . config)
                     (let* ((dot-config (string-append (getcwd) "/" target
-- 
cgit v1.2.3