From b0d8618705c91be015d1d88baa9610f4cb8fc69c Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Thu, 6 Feb 2025 17:02:54 +0000
Subject: [PATCH] Fix exception handling for fibers-batch-map

---
 knots/parallelism.scm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/knots/parallelism.scm b/knots/parallelism.scm
index 99f41b3..41ae676 100644
--- 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