[uim-commit] r2975 - branches/r5rs/sigscheme/src

[yamaken at freedesktop.org]

Author: yamaken
Date: 2006-01-22 08:46:05 -0800 (Sun, 22 Jan 2006)
New Revision: 2975

Modified:
   branches/r5rs/sigscheme/src/operations.c
Log:
* sigscheme/src/operations.c
  - (ICHAR_DOWNCASE, ICHAR_UPCASE): Cast explicitly


Modified: branches/r5rs/sigscheme/src/operations.c
===================================================================
--- branches/r5rs/sigscheme/src/operations.c	2006-01-22 16:41:09 UTC (rev 2974)
+++ branches/r5rs/sigscheme/src/operations.c	2006-01-22 16:46:05 UTC (rev 2975)
@@ -67,8 +67,8 @@
 
 /* FIXME: support SRFI-75 */
 /* get case insensitive character value */
-#define ICHAR_DOWNCASE(ch_val) ((isascii(ch_val)) ? tolower(ch_val) : (ch_val))
-#define ICHAR_UPCASE(ch_val)   ((isascii(ch_val)) ? toupper(ch_val) : (ch_val))
+#define ICHAR_DOWNCASE(c) ((isascii((int)(c))) ? tolower((int)(c)) : (c))
+#define ICHAR_UPCASE(c)   ((isascii((int)(c))) ? toupper((int)(c)) : (c))
 
 /*=======================================
   Variable Declarations