Handle internal shutdowns in setup-completer

3 years ago · e3295bd91e
1 changed files with 5 additions and 1 deletions
--- 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)))