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