cbaines/guile-knots
1
Fork 0
Code Issues Pull requests Activity Actions

Fix exception handling in fibers-map-with-progress
All checks were successful
/ test (push) Successful in 9s
Details

Browse source
This commit is contained in:
Christopher Baines 2025-06-26 22:53:15 +02:00
parent 09ca6cfb6b
commit 8f3e0a9a1d
2 changed files with 22 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
knots/parallelism.scm
View file

@ -217,9 +217,9 @@
(if (null? active-channels)
(map
(match-lambda
((#f . ('exception . exn))
((#f . ('exception exn))
(raise-exception exn))
((#f . ('result . val))
((#f . ('result val))
val))
channels-to-results)
(loop
@ -239,10 +239,10 @@
(if (eq? channel c)
(cons #f
(match result
(('exception . exn)
(('exception exn)
result)
(_
(cons 'result result))))
(list 'result result))))
(cons c r))))
channels-to-results)))
#f))))