quick fix for incorrect reading of subsequent* characters in a

symbol.
2008-08-04 23:19:55 -07:00 · 2008-08-04 23:19:55 -07:00 · e1215998e0
parent 2b4e89bcf0
commit e1215998e0
2 changed files with 3 additions and 2 deletions
--- a/scheme/ikarus.reader.ss
+++ b/scheme/ikarus.reader.ss
@ -104,7 +104,8 @@
      (memq c '(#\! #\$ #\% #\& #\* #\/ #\: #\< #\= #\> #\? #\^ #\_ #\~))))
  (define subsequent?
    (lambda (c)
-      (or (initial? c) (digit? c) (special-subsequent? c))))
+      (or (initial? c) (digit? c) (special-subsequent? c)
+          (memq (char-general-category c) '(Nd Mc Me)))))
  (define special-subsequent?
    (lambda (c)
      (memq c '(#\+ #\- #\. #\@))))
--- a/scheme/last-revision
+++ b/scheme/last-revision
@ -1 +1 @@
-1571
+1572