diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-11-16 14:22:13 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-11-16 14:22:58 +0100 |
| commit | 333c376c4586d16b215b994240ad4a5ddaa74d03 (patch) | |
| tree | fa6c32cb2f13f4baa8b6cd645546ba036a4d89a1 /guix/build/graft.scm | |
| parent | 9c88f655e6533e2f84ebf7ee546596c85031441d (diff) | |
| download | guix-patches-333c376c4586d16b215b994240ad4a5ddaa74d03.tar guix-patches-333c376c4586d16b215b994240ad4a5ddaa74d03.tar.gz | |
graft: Graft files in parallel.
* guix/build/graft.scm (rewrite-directory): Use 'n-par-for-each' instead
of 'for-each'.
Diffstat (limited to 'guix/build/graft.scm')
| -rw-r--r-- | guix/build/graft.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/guix/build/graft.scm b/guix/build/graft.scm index d29e671c67..0a9cd3260c 100644 --- a/guix/build/graft.scm +++ b/guix/build/graft.scm @@ -21,6 +21,7 @@ #:use-module (rnrs bytevectors) #:use-module (rnrs io ports) #:use-module (ice-9 match) + #:use-module (ice-9 threads) #:export (replace-store-references rewrite-directory)) @@ -117,6 +118,7 @@ file name pairs." (else (error "unsupported file type" stat))))) - (for-each rewrite-leaf (find-files directory))) + (n-par-for-each (parallel-job-count) + rewrite-leaf (find-files directory))) ;;; graft.scm ends here |