diff --git a/guix/self.scm b/guix/self.scm index 12727ddbae..e1350a7403 100644 --- a/guix/self.scm +++ b/guix/self.scm @@ -290,7 +290,7 @@ (define build #~(begin (use-modules (guix build utils) (guix build po) (ice-9 match) (ice-9 regex) (ice-9 textual-ports) - (ice-9 vlist) + (ice-9 vlist) (ice-9 threads) (srfi srfi-1)) (define (translate-tmp-texi po source output) @@ -413,16 +413,18 @@ (define (available-translations directory domain) (setenv "LC_ALL" "en_US.UTF-8") (setlocale LC_ALL "en_US.UTF-8") - (for-each (match-lambda - ((language . po) - (translate-texi "guix" po language - #:extras '("contributing")))) - (available-translations "." "guix-manual")) + (n-par-for-each (parallel-job-count) + (match-lambda + ((language . po) + (translate-texi "guix" po language + #:extras '("contributing")))) + (available-translations "." "guix-manual")) - (for-each (match-lambda - ((language . po) - (translate-texi "guix-cookbook" po language))) - (available-translations "." "guix-cookbook")) + (n-par-for-each (parallel-job-count) + (match-lambda + ((language . po) + (translate-texi "guix-cookbook" po language))) + (available-translations "." "guix-cookbook")) (for-each (lambda (file) (install-file file #$output))