cbaines pushed a commit to branch master
in repository data-service.
commit 7acb38377e68c402258d0fa332469bd0d05b5105
Author: Christopher Baines <m...@cbaines.net>
AuthorDate: Thu Feb 1 10:39:11 2024 +0100
Fix exception handling in call-with-temporary-thread
---
guix-data-service/jobs/load-new-guix-revision.scm | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/guix-data-service/jobs/load-new-guix-revision.scm
b/guix-data-service/jobs/load-new-guix-revision.scm
index 7f1e981..d943c9f 100644
--- a/guix-data-service/jobs/load-new-guix-revision.scm
+++ b/guix-data-service/jobs/load-new-guix-revision.scm
@@ -992,7 +992,7 @@
(with-exception-handler
(lambda (exn)
- (put-message channel `(exception ,exn)))
+ (put-message channel `(exception . ,exn)))
(lambda ()
(with-throw-handler #t
(lambda ()
@@ -1006,8 +1006,8 @@
(match (get-message channel)
(('values . results)
(apply values results))
- (('exception . args)
- (apply throw args)))))
+ (('exception . exn)
+ (raise-exception exn)))))
(define (inferior-eval-with-store/non-blocking inferior store proc)
(call-with-temporary-thread
