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