From d90976f865e15f8498c222c0451fdcd15ed0ae42 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 20 Jun 2017 12:33:09 -0600
Subject: [PATCH] rktio: repair to `listen` failure handling

---
 racket/src/rktio/rktio_network.c | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/racket/src/rktio/rktio_network.c b/racket/src/rktio/rktio_network.c
index a4c7f3dbed..3cc212a02d 100644
--- a/racket/src/rktio/rktio_network.c
+++ b/racket/src/rktio/rktio_network.c
@@ -1468,8 +1468,10 @@ rktio_listener_t *rktio_listen(rktio_t *rktio, rktio_addrinfo_t *src, int backlo
 #endif
       }
 
-      l->count = pos;
-      rktio_listen_stop(rktio, l);
+      if (l) {
+        l->count = pos;
+        rktio_listen_stop(rktio, l);
+      }
 
       return NULL;
     }