10/14: Fix exception handling in call-with-temporary-thread

[Christopher Baines]

cbaines pushed a commit to branch master
in repository data-service.

commit 7acb38377e68c402258d0fa332469bd0d05b5105
Author: Christopher Baines <mail@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