From a769fd25111a5b305917e5c81fa375bb55bcb477 Mon Sep 17 00:00:00 2001 From: Peter McGoron Date: Sun, 13 Oct 2024 18:37:29 -0400 Subject: [PATCH] read.scm: readtable:read-ident -> read:read-ident --- read.scm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/read.scm b/read.scm index 6e20573..53d7f6f 100644 --- a/read.scm +++ b/read.scm @@ -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")