From 71aac24f3fe8cb396c9d232453d8721519cae914 Mon Sep 17 00:00:00 2001 From: Mathieu Othacehe Date: Sat, 3 Oct 2020 15:01:28 +0200 Subject: 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. --- src/cuirass/base.scm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'src') 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) -- cgit v1.2.3