From e3295bd91e248ba9b7809c6f6b885b79bc7db8a2 Mon Sep 17 00:00:00 2001
From: Jessica Tallon <tsyesika@tsyesika.se>
Date: Wed, 18 Jan 2023 12:43:14 +0100
Subject: [PATCH] Handle internal shutdowns in setup-completer

---
 goblins/ocapn/captp.rkt | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/goblins/ocapn/captp.rkt b/goblins/ocapn/captp.rkt
index d37b756..8441e17 100644
--- a/goblins/ocapn/captp.rkt
+++ b/goblins/ocapn/captp.rkt
@@ -1460,7 +1460,11 @@
               (sessionmeta remote-location
                            local-bootstrap-obj remote-bootstrap-vow
                            coordinator session-name))
-           (void)]))
+           (void)]
+          [(internal-shutdown reason)
+           ;; We're shutting down before we've properly set the connection up,
+           ;; we're no longer needed :(
+           (bcom (^setup-completer (lambda _ (void))))]))
 
       (define-values (incoming-forwarder incoming-swap)
         (swappable (spawn ^setup-completer)))