diff options
author | Christopher Baines <mail@cbaines.net> | 2024-02-01 10:39:11 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2024-02-01 10:39:11 +0100 |
commit | 7acb38377e68c402258d0fa332469bd0d05b5105 (patch) | |
tree | 7eb215122c04e26f25049f99fc7f5343a79c13ef /guix-data-service | |
parent | d5e663cc1eeace03ebf2d33eacfa40fbd996d716 (diff) | |
download | data-service-7acb38377e68c402258d0fa332469bd0d05b5105.tar data-service-7acb38377e68c402258d0fa332469bd0d05b5105.tar.gz |
Fix exception handling in call-with-temporary-thread
Diffstat (limited to 'guix-data-service')
-rw-r--r-- | guix-data-service/jobs/load-new-guix-revision.scm | 6 |
1 files 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 |