From 775eb863ef2b00251b9bb3d75baafa67011a5c0c Mon Sep 17 00:00:00 2001 From: Peter McGoron Date: Sun, 8 Sep 2024 08:46:15 -0400 Subject: [PATCH] readtable: handle EOF by returning EOF symbol --- read.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/read.scm b/read.scm index 7523b78..63a119d 100644 --- a/read.scm +++ b/read.scm @@ -242,6 +242,7 @@ (readtable:process (readtable:empty/default readtable:read-ident) (list readtable:add-all-as-skip readtable:ASCII-whitespace) + (list readtable:update #f (readtable:return 'eof)) (list readtable:update #\; (readtable:jump-discard readtable:read-to-newline)))) @@ -275,6 +276,6 @@ (loop)))))) (loop))))) -(read-all "x yy zz ; this is a comment\nx") +(read-all "x yy zz ; this is a comment\nx call/cc ")