diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-01-12 23:25:57 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-01-13 15:21:22 +0000 |
| commit | 040059a35c969e7f7954f95b9af9b0821af33a56 (patch) | |
| tree | fed4f66543e526049be525b48dbf74c3a2c7dc0b | |
| parent | 5845d43411228cfa6fe175383ed66050537fedc7 (diff) | |
| download | bffe-040059a35c969e7f7954f95b9af9b0821af33a56.tar bffe-040059a35c969e7f7954f95b9af9b0821af33a56.tar.gz | |
Have fibers-map/fibers-for-each wait for all fibers to finish
As this produces more consistent behaviour.
| -rw-r--r-- | bffe/manage-builds.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/bffe/manage-builds.scm b/bffe/manage-builds.scm index 8047328..c10ea1e 100644 --- a/bffe/manage-builds.scm +++ b/bffe/manage-builds.scm @@ -202,11 +202,11 @@ #:unwind? #t)))) channel)) lists))) - (map (lambda (channel) - (match (get-message channel) - (('result . val) val) - (('exception . exn) (raise-exception exn)))) - channels))) + (map + (match-lambda + (('result . val) val) + (('exception . exn) (raise-exception exn))) + (map get-message channels)))) (define (fibers-for-each proc . lists) ;; Like split-at, but don't care about the order of the resulting lists, and |