cbaines/guile-knots
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix exception handling for fibers-batch-map

Browse source
This commit is contained in:
Christopher Baines 2025-02-06 17:02:54 +00:00
parent 7de5901a94
commit b0d8618705
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
knots/parallelism.scm
View file

@ -118,8 +118,13 @@
(vector-ref result-vec index)) (vector-ref result-vec index))
(lambda (result) (lambda (result)
(match result (match result
(('exception . exn) (('exception exn stack)
(raise-exception exn)) (let ((knots-exn
(make-knots-exception stack)))
(raise-exception
(make-exception
knots-exn
exn))))
(_ (_
(vector-set! result-vec (vector-set! result-vec
index index