From a02a1206be6b9c5e29272157775a77a3d732e5db Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Fri, 18 Aug 2017 18:30:40 -0400
Subject: [PATCH] Use input ports

---
 mstreams.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/mstreams.c b/mstreams.c
index d4d22b59..2d31eaae 100644
--- a/mstreams.c
+++ b/mstreams.c
@@ -36,7 +36,7 @@ port_type *Cyc_io_open_input_string(void *data, object str)
 {
 //  // Allocate port on the heap so the location of mem_buf does not change
   port_type *p;
-  make_port(sp, NULL, 0);
+  make_input_port(sp, NULL, CYC_IO_BUF_LEN);
 
   Cyc_check_str(data, str);
   p = (port_type *)Cyc_heap_alloc_port(data, &sp);
@@ -57,7 +57,7 @@ port_type *Cyc_io_open_input_bytevector(void *data, object bv)
 {
 //  // Allocate port on the heap so the location of mem_buf does not change
   port_type *p;
-  make_port(sp, NULL, 0);
+  make_input_port(sp, NULL, CYC_IO_BUF_LEN);
 
   Cyc_check_bvec(data, bv);
   p = (port_type *)Cyc_heap_alloc_port(data, &sp);