From e1215998e038dff9fdd1190c9f9d4bb0ef76dfd9 Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Mon, 4 Aug 2008 23:19:55 -0700
Subject: [PATCH] quick fix for incorrect reading of subsequent* characters in
 a symbol.

---
 scheme/ikarus.reader.ss | 3 ++-
 scheme/last-revision    | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/scheme/ikarus.reader.ss b/scheme/ikarus.reader.ss
index 198ded8..0f5f6a0 100644
--- 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 '(#\+ #\- #\. #\@))))
diff --git a/scheme/last-revision b/scheme/last-revision
index f805915..0a02468 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1571
+1572