@@ -255,7 +255,8 @@ new Linux changes for nonfree code is required when skipping the comparison."
(setvbuf (current-output-port) 'line)
- (let ((dir (string-append "linux-" #$version)))
+ (let ((dir (string-append "linux-" #$version))
+ (ncores (number->string (parallel-job-count))))
(mkdir "/tmp/bin")
(set-path-environment-variable
@@ -289,6 +290,9 @@ new Linux changes for nonfree code is required when skipping the comparison."
(("/bin/sed") (which "sed"))
(("/usr/bin/python") (which "python"))))
+ ;; This enables xz multi-core compression/decompression.
+ (setenv "XZ_DEFAULTS" (string-append "--threads=" ncores))
+
(if (file-is-directory? #+linux-upstream-source)
(begin
(format #t "Copying upstream Linux source...~%")