From 0dd7e85e72e01b57b0850d428aafe99f878148a1 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Tue, 12 Aug 2014 19:42:54 +0900
Subject: [PATCH] [bugfix] plus reader broken

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

diff --git a/src/read.c b/src/read.c
index 41297b67..70b0f2c1 100644
--- a/src/read.c
+++ b/src/read.c
@@ -331,7 +331,7 @@ read_plus(pic_state *pic, struct pic_port *port, int c)
     if (strcaseeq(pic_symbol_name(pic, pic_sym(sym)), "+nan.0")) {
       return pic_float_value(NAN);
     }
-    return read_symbol(pic, port, c);
+    return sym;
   }
 }