From 4772441589553847a0de58bfe7cdcff57ee8b981 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Sat, 28 Jun 2014 20:02:13 +0900
Subject: [PATCH] allow "(a . b #;c )"

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

diff --git a/src/read.c b/src/read.c
index 1dae699f..66b1625f 100644
--- a/src/read.c
+++ b/src/read.c
@@ -361,7 +361,11 @@ read_pair(pic_state *pic, struct pic_port *port, char c)
   if (c == '.' && isdelim(peek(port))) {
     cdr = read(pic, port, next(port));
 
+  closing:
     if ((c = skip(port, ' ')) != tCLOSE) {
+      if (pic_undef_p(read_nullable(pic, port, c))) {
+        goto closing;
+      }
       read_error(pic, "unmatched parenthesis");
     }
     return cdr;