From aae4bba98d86a97e88521a95c35cc950351e724d Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Sat, 28 Jun 2014 19:47:45 +0900
Subject: [PATCH] [bugfix] wrong size for read string

---
 src/read.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/read.c b/src/read.c
index 03e72aa3..1dae699f 100644
--- a/src/read.c
+++ b/src/read.c
@@ -299,7 +299,7 @@ read_string(pic_state *pic, struct pic_port *port, char c)
   }
   buf[cnt] = '\0';
 
-  str = pic_str_new(pic, buf, size);
+  str = pic_str_new(pic, buf, cnt);
   pic_free(pic, buf);
   return pic_obj_value(str);
 }