peter
/
UNSLISP
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

readtable: handle EOF by returning EOF symbol

This commit is contained in:
Peter McGoron 2024-09-08 08:46:15 -04:00
parent 657db57826
commit 775eb863ef
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
read.scm
View File

@ -242,6 +242,7 @@
(readtable:process (readtable:process
(readtable:empty/default readtable:read-ident) (readtable:empty/default readtable:read-ident)
(list readtable:add-all-as-skip readtable:ASCII-whitespace) (list readtable:add-all-as-skip readtable:ASCII-whitespace)
(list readtable:update #f (readtable:return 'eof))
(list readtable:update #\; (list readtable:update #\;
(readtable:jump-discard readtable:read-to-newline)))) (readtable:jump-discard readtable:read-to-newline))))
@ -275,6 +276,6 @@
(loop)))))) (loop))))))
(loop))))) (loop)))))
(read-all "x yy zz ; this is a comment\nx") (read-all "x yy zz ; this is a comment\nx call/cc ")