readtable: handle EOF by returning EOF symbol

1 files changed, 2 insertions, 1 deletions

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 ")