dev-scheme/gauche/files/gauche-0.9.5-unicode.patch


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

commit d31eb5c02b65514e695b45c0c01cbd45a36bac4a
Author: OOHASHI Daichi <dico.leque.comicron@gmail.com>
Date:   Thu Oct 20 10:48:17 2016 +0900

    (char-general-category #\x20000) should be Lo

diff --git a/src/gauche/char_utf_8.h b/src/gauche/char_utf_8.h
index 082e764..5f92d13 100644
--- a/src/gauche/char_utf_8.h
+++ b/src/gauche/char_utf_8.h
@@ -294,7 +294,7 @@ static inline unsigned char Scm__LookupCharCategory(ScmChar ch)
 {
     if (ch == SCM_CHAR_INVALID || ch >= 0x10ffff) {
         return SCM_CHAR_CATEGORY_Cn;
-    } else if (ch <= 0x20000) {
+    } else if (ch < 0x20000) {
         return ucs_general_category_00000[ch];
     } else {
         return ucs_general_category_20000(ch);