From 8dae333bbd01e95f171209c8e58862c662d77656 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Tue, 12 Aug 2014 09:09:24 +0900
Subject: [PATCH] use int for character variables

---
 src/read.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/read.c b/src/read.c
index 82bc0baf..a7ebdfd7 100644
--- a/src/read.c
+++ b/src/read.c
@@ -239,7 +239,7 @@ static size_t
 read_suffix(pic_state *pic, struct pic_port *port, char buf[])
 {
   size_t i = 0;
-  char c;
+  int c;
 
   c = peek(port);
 
@@ -521,7 +521,7 @@ read_unsigned_blob(pic_state *pic, struct pic_port *port, int c)
 static pic_value
 read_pair(pic_state *pic, struct pic_port *port, int c)
 {
-  char tOPEN = c, tCLOSE = (tOPEN == '(') ? ')' : ']';
+  int tOPEN = c, tCLOSE = (tOPEN == '(') ? ')' : ']';
   pic_value car, cdr;
 
  retry: