diff options
| author | Mathieu Othacehe <othacehe@gnu.org> | 2020-10-03 15:01:28 +0200 |
|---|---|---|
| committer | Mathieu Othacehe <othacehe@gnu.org> | 2020-10-03 15:03:50 +0200 |
| commit | 71aac24f3fe8cb396c9d232453d8721519cae914 (patch) | |
| tree | 8bdf2fbb2dd9105f2fe25523c472353e7721af75 /src | |
| parent | 761443bca6178b4ac299a8bd368d1cac4abda5f8 (diff) | |
| download | cuirass-71aac24f3fe8cb396c9d232453d8721519cae914.tar cuirass-71aac24f3fe8cb396c9d232453d8721519cae914.tar.gz | |
Remove another par-map call.
This is a follow-up of 761443bca6178b4ac299a8bd368d1cac4abda5f8.
* src/cuirass/base.scm (fetch-inputs): Use map to replace the previous par-map
call.
(compile-checkouts): Also replace par-map call by map.
Diffstat (limited to 'src')
| -rw-r--r-- | src/cuirass/base.scm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/cuirass/base.scm b/src/cuirass/base.scm index 5a0c826..e993232 100644 --- a/src/cuirass/base.scm +++ b/src/cuirass/base.scm @@ -745,8 +745,7 @@ by PRODUCT-SPECS." (fetch-input store input #:writable-copy? (compile? input))))) inputs)) - (results (non-blocking - (par-map %non-blocking thunks)))) + (results (map %non-blocking thunks))) (map (lambda (checkout) (log-message "fetched input '~a' of spec '~a' (commit ~s)" (assq-ref checkout #:input) @@ -767,7 +766,7 @@ by PRODUCT-SPECS." (assq-ref checkout #:commit)) (compile checkout))) checkouts)) - (results (par-map %non-blocking thunks))) + (results (map %non-blocking thunks))) (map (lambda (checkout) (log-message "compiled input '~a' of spec '~a' (commit ~s)" (assq-ref checkout #:input) |