From 1d1fa9327c839bf7af92dd38d8306df0d456c11e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sat, 22 Nov 2014 21:57:05 +0100
Subject: [PATCH] utils: Turn 'parallel-job-count' into a parameter.

* guix/build/utils.scm (parallel-job-count): Turn into a SRFI-39 parameter.
---
 guix/build/utils.scm | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/guix/build/utils.scm b/guix/build/utils.scm
index c4c3934a5d..a3050b955c 100644
--- a/guix/build/utils.scm
+++ b/guix/build/utils.scm
@@ -73,13 +73,13 @@ (define (%store-directory)
   (or (getenv "NIX_STORE")
       "/gnu/store"))
 
-(define (parallel-job-count)
-  "Return the number of processes to be passed next to GNU Make's `-j'
-argument."
-  (match (getenv "NIX_BUILD_CORES")               ;set by the daemon
-    (#f  1)
-    ("0" (current-processor-count))
-    (x   (or (string->number x) 1))))
+(define parallel-job-count
+  ;; Number of processes to be passed next to GNU Make's `-j' argument.
+  (make-parameter
+   (match (getenv "NIX_BUILD_CORES")              ;set by the daemon
+     (#f  1)
+     ("0" (current-processor-count))
+     (x   (or (string->number x) 1)))))
 
 (define (directory-exists? dir)
   "Return #t if DIR exists and is a directory."