add error for unclosed lists HEAD main

1 files changed, 6 insertions, 1 deletions

diff --git a/lith.c b/lith.c
index 400149c..8d2947c 100644
--- a/lith.c
+++ b/lith.c
@@ -190,7 +190,12 @@ static lith_value *read_list_expr(lith_st *L, char *start, char **end)
     list = p = L->nil;
     for (;;) {
         lex(L, *end, &t, end);
-        if (LITH_IS_ERR(L)) return NULL;
+        if (LITH_IS_ERR(L)) {
+            if (LITH_AT_END_NO_ERR(L))
+                lith_simple_error(L, LITH_ERR_EOF,
+                    "while reading a list");
+            return NULL;
+        }
         if (*t == ')') return list;
         if (*t == '.' && (*end - t == 1)) {
             if (LITH_IS_NIL(p)) {