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

read.scm: readtable:read-ident -> read:read-ident

This commit is contained in:
Peter McGoron 2024-10-13 18:37:29 -04:00
parent 6f2a1c8301
commit a769fd2511
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
read.scm
View File

@ -454,7 +454,7 @@
(list readtable:update %eol (readtable:return 'end-of-list))
(list readtable:update #\.
(lambda (table char acc port)
(let ((entire-identifier (readtable:read-ident
(let ((entire-identifier (read:read-ident
table
char
#f
@ -905,7 +905,7 @@
(define read:read-hash-messages
(lambda (_ char acc port)
(let ((ident (readtable:read-ident #f char #f port)))
(let ((ident (read:read-ident #f char #f port)))
(let ((container (smap:search read:hash-messages
(ident 'value))))
(if (null? container)
@ -941,7 +941,7 @@
(define readtable:character
(lambda (_ char __ port)
(let ((char (port 'read)))
(let ((ident (readtable:read-ident #f char #f port)))
(let ((ident (read:read-ident #f char #f port)))
(let ((container (smap:search read:named-characters
(ident 'value))))
(display (ident 'value))
@ -1127,7 +1127,8 @@
(read-all "#d-i")
(read-all "100i")
(read-all "+5")
(read-all "++1+")
(read-all "++1")
(read-all "+-1")
(read-all "+inf.0")
(read-all "-inf.0")
(read-all "+nan.0")