From 765d2fb663a7cd2e7d13f01ab1f3fd7f70329e27 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 22 Sep 2016 18:50:27 -0400
Subject: [PATCH] WIP

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

diff --git a/srfi/106.sld b/srfi/106.sld
index 0784df64..1cb85415 100644
--- a/srfi/106.sld
+++ b/srfi/106.sld
@@ -27,6 +27,8 @@
       *shut-rd* *shut-wr* *shut-rdwr*
   )
   (begin
+    ;; TODO: identifier for socket in vector
+
   ;; see: http://gnosis.cx/publish/programming/sockets.html
     (define-c %make-client-socket
       "(void *data, int argc, closure _, object k, 
@@ -57,7 +59,7 @@
                                sizeof(addr)) < 0) {
            Cyc_rt_raise_msg(data, \"Failed to connect with server\");
         }
-        // TODO: pack socket, and pass that to k:
+        // TODO: pack socket, and pass that to k. check code in Cyc_make_vector
         return_closcall1(data, k, obj_int2obj()); ")
 
     (define-syntax make-const