From 05fb1cdb7b0300030f3ad8dfc4432e261525ac33 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Sat, 19 Aug 2017 18:12:06 -0400
Subject: [PATCH] Use new make_input_port macro

---
 srfi/106.sld | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/srfi/106.sld b/srfi/106.sld
index e2b3ebda..643d8b6b 100644
--- a/srfi/106.sld
+++ b/srfi/106.sld
@@ -263,7 +263,7 @@
     (define-c %socket-input-port
       "(void *data, int argc, closure _, object k, object sockfd)"
       " FILE *fp = fdopen(obj_obj2int(sockfd), \"r\");
-        make_port(port, fp, 1);
+        make_input_port(port, fp, 1);
         return_closcall1(data, k, &port);")
 
     (define (socket-output-port sock)