diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-11-22 12:32:32 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-11-22 12:32:32 +0100 |
| commit | e6039b9c70c658d648723a2d331f1c9637b49126 (patch) | |
| tree | 51507be7c3695b2f65c45201a15e47e03ff83591 /guix/build/gnu-build-system.scm | |
| parent | e56512125d808522325324b99eaf966d8272355e (diff) | |
| download | guix-patches-e6039b9c70c658d648723a2d331f1c9637b49126.tar guix-patches-e6039b9c70c658d648723a2d331f1c9637b49126.tar.gz | |
utils: Export 'parallel-job-count'.
* guix/build/utils.scm (parallel-job-count): New procedure.
* guix/build/gnu-build-system.scm (%parallel-job-count): Remove.
(build, check): Use 'parallel-job-count' instead.
Diffstat (limited to 'guix/build/gnu-build-system.scm')
| -rw-r--r-- | guix/build/gnu-build-system.scm | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/guix/build/gnu-build-system.scm b/guix/build/gnu-build-system.scm index 17fa7afd8d..afed601798 100644 --- a/guix/build/gnu-build-system.scm +++ b/guix/build/gnu-build-system.scm @@ -236,18 +236,11 @@ makefiles." (string-append srcdir "/configure") flags)))) -(define %parallel-job-count - ;; String to be passed next to GNU Make's `-j' argument. - (match (getenv "NIX_BUILD_CORES") - (#f "1") - ("0" (number->string (current-processor-count))) - (x x))) - (define* (build #:key (make-flags '()) (parallel-build? #t) #:allow-other-keys) (zero? (apply system* "make" `(,@(if parallel-build? - `("-j" ,%parallel-job-count) + `("-j" ,(number->string (parallel-job-count))) '()) ,@make-flags)))) @@ -257,7 +250,7 @@ makefiles." (if tests? (zero? (apply system* "make" test-target `(,@(if parallel-tests? - `("-j" ,%parallel-job-count) + `("-j" ,(number->string (parallel-job-count))) '()) ,@make-flags))) (begin |