From d3d3c35ffa33b02fb8fdc89025e6faa6bc387f29 Mon Sep 17 00:00:00 2001
From: Jeff Bezanson <jeff.bezanson@gmail.com>
Date: Thu, 6 Jun 2019 19:48:54 -0400
Subject: [PATCH] fix part of #53, assertion failure on invalid dotted list

---
 read.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/read.c b/read.c
index 00fb43b..e262c40 100644
--- a/read.c
+++ b/read.c
@@ -539,8 +539,10 @@ static void read_list(value_t *pval, value_t label)
             t = peek();
             if (ios_eof(F))
                 lerror(ParseError, "read: unexpected end of input");
-            if (t != TOK_CLOSE)
+            if (t != TOK_CLOSE) {
+                take();
                 lerror(ParseError, "read: expected ')'");
+            }
         }
     }
     take();