From 373fb77fc3ca3e789d578f29fbf63b93b9f531bb Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Thu, 17 Jun 2021 13:43:01 +0200 Subject: [PATCH] Make distributed/tcp-server respect TcpListenError --- syndicate/distributed/tcp-server.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/syndicate/distributed/tcp-server.rkt b/syndicate/distributed/tcp-server.rkt index 41af355..78d6b0c 100644 --- a/syndicate/distributed/tcp-server.rkt +++ b/syndicate/distributed/tcp-server.rkt @@ -26,8 +26,10 @@ (spawn-tcp-driver ds) (spawn #:name 'tcp-server + (define spec (TcpLocal "0.0.0.0" 5999)) (at ds - (during/spawn (StreamConnection $source $sink (TcpLocal "0.0.0.0" 5999)) + (stop-on (asserted (TcpListenError spec _))) + (during/spawn (StreamConnection $source $sink spec) #:name (list 'tcp-server source) (run-relay #:packet-writer (lambda (bs) (send-data sink bs)) #:setup-inputs