Fix #N= and #N# so that N is composed of ASCII digits.

diff --git a/src/runtime/reader.scm b/src/runtime/reader.scm
index fd17a7f7230b68d6e4cbbcd87bb9c41905d2e3b3..e8af0b063de841f02fd3d0db8b9c4a8c8d34c3dc 100644 (file)
--- a/src/runtime/reader.scm
+++ b/src/runtime/reader.scm
@@ -294,7 +294,7 @@ USA.
    (add-special! #\! handler:named-constant)
    (add-special! #\@ handler:unhash)
    (add-special! (char-set "bBoOdDxXiIeEsSlL") handler:number)
-   (add-special! char-set:numeric handler:special-arg)))
+   (add-special! (char-set "0123456789") handler:special-arg)))
 \f
 (define (%read-char db)
   (let ((char