From 5479511afa4f9b348438cc255934cb3861c3aa7c Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Tue, 15 Jun 2021 14:51:50 +0200 Subject: [PATCH] Use escape-pod to ensure assertion of error survives the impending exit of the failing actor --- syndicate-ssh/ssh-exceptions.rkt | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/syndicate-ssh/ssh-exceptions.rkt b/syndicate-ssh/ssh-exceptions.rkt index da65fcc..2f1eb61 100644 --- a/syndicate-ssh/ssh-exceptions.rkt +++ b/syndicate-ssh/ssh-exceptions.rkt @@ -35,5 +35,8 @@ format-string . args) (define message (apply format format-string args)) - (spawn (at ds (assert (protocol-error reason-code message local-info originated-at-peer?)))) + (escape-pod + (lambda () + (spawn #:name (list 'protocol-error reason-code message) + (at ds (assert (protocol-error reason-code message local-info originated-at-peer?)))))) (error 'protocol-error "(~a) ~a: ~v" reason-code message local-info))