From 1d1fa9327c839bf7af92dd38d8306df0d456c11e Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Sat, 22 Nov 2014 21:57:05 +0100 Subject: 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." -- cgit v1.2.3