From e60a7459e002c0bd6e088ab23a7ea6414c94bf1a Mon Sep 17 00:00:00 2001
From: Aryadev Chavali <aryadev@aryadevchavali.com>
Date: Wed, 11 Feb 2026 08:41:42 +0000
Subject: [PATCH] reader: fix issue with read_list of infinite loop

---
 src/reader.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/reader.c b/src/reader.c
index 7a18fee..856581b 100644
--- 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);