From a34fa036081a92c0868ee007a7cbef70647fcf86 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Sat, 24 Sep 2016 04:14:37 -0400
Subject: [PATCH] Stubs for accept

---
 srfi/106.sld | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/srfi/106.sld b/srfi/106.sld
index 197896b6..160bd659 100644
--- a/srfi/106.sld
+++ b/srfi/106.sld
@@ -162,10 +162,17 @@
         }
         
         freeaddrinfo(servinfo); // all done with this structure
+
+        if (listen(sockfd, 20) < 0)
+            Cyc_rt_raise_msg(data, \"Unable to listen on socket\");
+        }
         return_closcall1(data, k, obj_int2obj(sockfd)); ")
 
-;; TODO: when do we call listen()? ??
+;; See: http://beej.us/guide/bgnet/output/html/singlepage/bgnet.html#accept
 ; TODO: (define (socket-accept sock))
+; struct sockaddr_storage their_addr;
+;    addr_size = sizeof their_addr;
+;    new_fd = accept(sockfd, (struct sockaddr *)&their_addr, &addr_size);
 
     (define (socket-send sock bv . opts)
       (let ((flags 0))