diff options
| author |  Peter McGoron
| 2024-10-13 18:37:29 -0400 |
|---|---|---|
| committer | Peter McGoron
| 2024-10-13 18:37:29 -0400 |
| commit | a769fd25111a5b305917e5c81fa375bb55bcb477 (patch) | |
| tree | 1ba6f78585137bad0aebec1ac4ac8669662bb644 | |
| parent | number reader: add to toplevel (diff) | |
read.scm: readtable:read-ident -> read:read-ident
| -rw-r--r-- | read.scm | 9 |
1 files changed, 5 insertions, 4 deletions
@@ -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") |