diff options
| -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 |