~ruther/guix-local

1d1fa9327c839bf7af92dd38d8306df0d456c11e — Ludovic Courtès 11 years ago e8c7fdd
utils: Turn 'parallel-job-count' into a parameter.

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

M guix/build/utils.scm
M guix/build/utils.scm => guix/build/utils.scm +7 -7
@@ 73,13 73,13 @@
  (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."