From 4d9dc8011c19f127f8cb90b13537a9aecf0ebf1e Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Wed, 25 Jun 2014 21:40:51 +0900
Subject: [PATCH] fix read_vector bug

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

diff --git a/src/read.c b/src/read.c
index 44b69c6a..c9f8f631 100644
--- a/src/read.c
+++ b/src/read.c
@@ -362,6 +362,8 @@ read_vector(pic_state *pic, struct pic_port *port, char c)
 {
   pic_value val;
 
+  c = next(port);
+
   val = pic_nil_value();
   while ((c = skip(port, c)) != ')') {
     val = pic_cons(pic, read(pic, port, c), val);