Fix exception handling for fibers-batch-map

2025-02-06 17:02:54 +00:00 · 2025-02-06 17:02:54 +00:00 · b0d8618705
commit b0d8618705
parent 7de5901a94
1 changed files with 7 additions and 2 deletions
--- a/knots/parallelism.scm
+++ b/knots/parallelism.scm
@ -118,8 +118,13 @@
                          (vector-ref result-vec index))
                         (lambda (result)
                           (match result
-                             (('exception . exn)
-                              (raise-exception exn))
+                             (('exception exn stack)
+                              (let ((knots-exn
+                                     (make-knots-exception stack)))
+                                (raise-exception
+                                 (make-exception
+                                  knots-exn
+                                  exn))))
                             (_
                              (vector-set! result-vec
                                           index