shithub: femtolisp

Info  •  Files  •  Log  •  Branches

fix part of #53, assertion failure on invalid dotted list

--- a/read.c

+++ b/read.c

@@ -539,8 +539,10 @@

             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();