reader: fix issue with read_list of infinite loop

2026-02-11 08:41:42 +00:00
parent 4936460b39
commit e60a7459e0
1 changed files with 1 additions and 1 deletions
--- a/src/reader.c
+++ b/src/reader.c
@@ -124,7 +124,7 @@ read_err_t read_list(sys_t *sys, stream_t *stream, lisp_t **ret)

  lisp_t *top = NIL;
  lisp_t *cur = NIL;
-  while (stream_peek(stream) != ')')
+  while (!stream_eoc(stream) && stream_peek(stream) != ')')
  {
    lisp_t *item   = NIL;
    read_err_t err = read(sys, stream, &item);