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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-12-03 12:33:36 -0800 (Sat, 03 Dec 2005)
New Revision: 2337

Modified:
   branches/r5rs/sigscheme/read.c
Log:
* sigscheme/read.c
  - (skip_comment_and_space): Fix non-ASCII char handling


Modified: branches/r5rs/sigscheme/read.c
===================================================================
--- branches/r5rs/sigscheme/read.c	2005-12-03 20:25:52 UTC (rev 2336)
+++ branches/r5rs/sigscheme/read.c	2005-12-03 20:33:36 UTC (rev 2337)
@@ -145,7 +145,7 @@
         case LEX_ST_NORMAL:
             if (c == ';')
                 state = LEX_ST_COMMENT;
-            else if ((isascii(c) && !isspace(c)) || c == EOF)
+            else if (!isascii(c) || !isspace(c) || c == EOF)
                 return c;  /* peeked */
             break;