[Guile-commits] 01/02: Fix (ice-9 read) for #!r6rs

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit 5275156b00b8ab2b3e296c476358b0f648540845
Author: Andy Wingo <wingo@pobox.com>
AuthorDate: Sun Feb 14 22:01:42 2021 +0100

    Fix (ice-9 read) for #!r6rs
    
    * module/ice-9/read.scm (read): Fix read-directive.
---
 module/ice-9/read.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/module/ice-9/read.scm b/module/ice-9/read.scm
index bf4ed2f..808aa93 100644
--- 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)))