From 029efc91c95f29348341b2473efaec4b54b93aff Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Wed, 25 Jun 2014 21:40:26 +0900
Subject: [PATCH] allow symbols with leading '.'

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

diff --git a/src/read.c b/src/read.c
index 15416251..44b69c6a 100644
--- a/src/read.c
+++ b/src/read.c
@@ -342,7 +342,7 @@ read_pair(pic_state *pic, struct pic_port *port, char c)
   if (c == tCLOSE) {
     return pic_nil_value();
   }
-  if (c == '.') {
+  if (c == '.' && strchr("()#;,|'\" \t\n\r", peek(port)) != NULL) {
     cdr = read(pic, port, next(port));
 
     if ((c = skip(port, ' ')) != tCLOSE) {