Fix (ice-9 read) for #!r6rs

* module/ice-9/read.scm (read): Fix read-directive.

diff --git a/module/ice-9/read.scm b/module/ice-9/read.scm
index bf4ed2f94f7f685d6d8480622a00d2ce339aba33..808aa93368a0c46cc8429001e69b02f84bc21095 100644 (file)
--- a/module/ice-9/read.scm
+++ b/module/ice-9/read.scm
@@ -759,7 +759,9 @@
        (else
         (string->symbol
          (take-while ch (lambda (ch)
-                          (or (eqv? ch #\-) (char-alphabetic? ch)))))))))
+                          (or (eqv? ch #\-)
+                              (char-alphabetic? ch)
+                              (char-numeric? ch)))))))))
 
   (define (skip-scsh-comment)
     (let lp ((ch (next)))