[uim-commit] r2288 - branches/r5rs/sigscheme

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-11-29 22:26:16 -0800 (Tue, 29 Nov 2005)
New Revision: 2288

Modified:
   branches/r5rs/sigscheme/read.c
Log:
* sigscheme/read.c
  - (skip_comment_and_space, read_list): Fix passing non-ASCII char to
    isspace(3)


Modified: branches/r5rs/sigscheme/read.c
===================================================================
--- branches/r5rs/sigscheme/read.c	2005-11-30 05:41:42 UTC (rev 2287)
+++ branches/r5rs/sigscheme/read.c	2005-11-30 06:26:16 UTC (rev 2288)
@@ -153,7 +153,7 @@
         case LEX_ST_NORMAL:
             if (c == ';')
                 state = LEX_ST_COMMENT;
-            else if (!isspace(c) || c == EOF)
+            else if ((isascii(c) && !isspace(c)) || c == EOF)
                 return c;  /* peeked */
             break;
 
@@ -287,7 +287,8 @@
             DISCARD_LOOKAHEAD(port);
             c2 = SCM_PORT_PEEK_CHAR(port);
             CDBG((SCM_DBG_PARSER, "read_list process_dot c2 = [%c]", c2));
-            if (isspace(c2) || c2 == '(' || c2 == '"' || c2 == ';') {
+            if ((isascii(c2) && isspace(c2))
+                || c2 == '(' || c2 == '"' || c2 == ';') {
                 DISCARD_LOOKAHEAD(port);
                 cdr = read_sexpression(port);
                 if (NULLP(list_tail))