Fix some exception handling issues

2025-03-08 09:39:27 +00:00 · 2025-03-08 09:39:27 +00:00 · 4e33da98aa
commit 4e33da98aa
parent 3aab1be1e7
2 changed files with 38 additions and 2 deletions
--- a/knots/parallelism.scm
+++ b/knots/parallelism.scm
@ -72,7 +72,7 @@
                        reply-channels)))
    (map
     (match-lambda
-       (('exception exn stack)
+       (('exception exn)
        (raise-exception exn))
       (result
        (apply values result)))
@ -254,7 +254,10 @@
                         (let ((stack (make-stack #t
                                                  0 prompt-tag
                                                  0 (and prompt-tag 1))))
-                           (return (list 'exception exn stack))))))
+                           (return (list 'exception
+                                         (make-exception
+                                          exn
+                                          (make-knots-exception stack))))))))
                  (lambda ()
                    (call-with-values
                        (lambda ()