From 763f164580efeb6a1295091c0cb58ee4c782d4ab Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 23 Nov 2005 20:49:35 +0000
Subject: [PATCH] #ifdef out label when not needed

svn: r1387
---
 src/mzscheme/src/network.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/mzscheme/src/network.c b/src/mzscheme/src/network.c
index 054691b661..3b7a9dce73 100644
--- a/src/mzscheme/src/network.c
+++ b/src/mzscheme/src/network.c
@@ -1794,7 +1794,9 @@ tcp_listen(int argc, Scheme_Object *argv[])
   id = origid;
 #endif
 
+#ifdef MZ_TCP_LISTEN_IPV6_ONLY_SOCKOPT
  retry:
+#endif
 
   {
     GC_CAN_IGNORE struct addrinfo *tcp_listen_addr, *addr;