guile/guile-core/libguile chars.c

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/08/01 14:27:59

Modified files:
        guile-core/libguile: chars.c 

Log message:
        (scm_char_alphabetic_p, scm_char_numeric_p, scm_char_whitespace_p,
        scm_char_upper_case_p, scm_char_lower_case_p, scm_char_is_both_p): Do
        not require characters to fulfill isascii in addition to the primary
        predicate.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/chars.c.diff?cvsroot=OldCVS&tr1=1.30&tr2=1.31&r1=text&r2=text

Patches:
Index: guile/guile-core/libguile/chars.c
diff -u guile/guile-core/libguile/chars.c:1.30 
guile/guile-core/libguile/chars.c:1.31
--- guile/guile-core/libguile/chars.c:1.30      Thu Jul 19 14:08:49 2001
+++ guile/guile-core/libguile/chars.c   Wed Aug  1 14:27:59 2001
@@ -186,7 +186,7 @@
 #define FUNC_NAME s_scm_char_alphabetic_p
 {
   SCM_VALIDATE_CHAR (1,chr);
-  return SCM_BOOL(isascii(SCM_CHAR(chr)) && isalpha(SCM_CHAR(chr)));
+  return SCM_BOOL(isalpha(SCM_CHAR(chr)));
 }
 #undef FUNC_NAME
 
@@ -197,7 +197,7 @@
 #define FUNC_NAME s_scm_char_numeric_p
 {
   SCM_VALIDATE_CHAR (1,chr);
-  return SCM_BOOL(isascii(SCM_CHAR(chr)) && isdigit(SCM_CHAR(chr)));
+  return SCM_BOOL(isdigit(SCM_CHAR(chr)));
 }
 #undef FUNC_NAME
 
@@ -208,7 +208,7 @@
 #define FUNC_NAME s_scm_char_whitespace_p
 {
   SCM_VALIDATE_CHAR (1,chr);
-  return SCM_BOOL(isascii(SCM_CHAR(chr)) && isspace(SCM_CHAR(chr)));
+  return SCM_BOOL(isspace(SCM_CHAR(chr)));
 }
 #undef FUNC_NAME
 
@@ -221,7 +221,7 @@
 #define FUNC_NAME s_scm_char_upper_case_p
 {
   SCM_VALIDATE_CHAR (1,chr);
-  return SCM_BOOL(isascii(SCM_CHAR(chr)) && isupper(SCM_CHAR(chr)));
+  return SCM_BOOL(isupper(SCM_CHAR(chr)));
 }
 #undef FUNC_NAME
 
@@ -233,7 +233,7 @@
 #define FUNC_NAME s_scm_char_lower_case_p
 {
   SCM_VALIDATE_CHAR (1,chr);
-  return SCM_BOOL(isascii(SCM_CHAR(chr)) && islower(SCM_CHAR(chr)));
+  return SCM_BOOL(islower(SCM_CHAR(chr)));
 }
 #undef FUNC_NAME
 
@@ -247,7 +247,7 @@
 #define FUNC_NAME s_scm_char_is_both_p
 {
   SCM_VALIDATE_CHAR (1,chr);
-  return SCM_BOOL(isascii(SCM_CHAR(chr)) && (isupper(SCM_CHAR(chr)) || 
islower(SCM_CHAR(chr))));
+  return SCM_BOOL((isupper(SCM_CHAR(chr)) || islower(SCM_CHAR(chr))));
 }
 #undef FUNC_NAME