From 79afb228332ee12c11cdbb95d706b890133f6fb0 Mon Sep 17 00:00:00 2001
From: "Sunrim KIM (keen)" <3han5chou7@gmail.com>
Date: Sat, 19 Jul 2014 16:44:41 +0900
Subject: [PATCH] fix a bug of plus reader

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

diff --git a/src/read.c b/src/read.c
index 2b5c53be..62467ece 100644
--- a/src/read.c
+++ b/src/read.c
@@ -278,7 +278,7 @@ read_plus(pic_state *pic, struct pic_port *port, char c)
   pic_value sym;
 
   if (isdigit(peek(port))) {
-    return read_number(pic, port, c);
+    return read_number(pic, port, next(port));
   }
   else {
     sym = read_symbol(pic, port, c);