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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-10-31 20:34:15 -0800 (Mon, 31 Oct 2005)
New Revision: 1912

Modified:
   branches/r5rs/sigscheme/read.c
Log:
* sigscheme/read.c
  - (skip_comment_and_space): Cosmetic change


Modified: branches/r5rs/sigscheme/read.c
===================================================================
--- branches/r5rs/sigscheme/read.c	2005-10-31 20:20:10 UTC (rev 1911)
+++ branches/r5rs/sigscheme/read.c	2005-11-01 04:34:15 UTC (rev 1912)
@@ -150,8 +150,7 @@
     /* WARNING: the behavior is different to !SCM_USE_NEWPORT */
     int c, state;
 
-    state = LEX_ST_NORMAL;
-    for (;;) {
+    for (state = LEX_ST_NORMAL;;) {
         c = SCM_PORT_PEEK_CHAR(port);
         switch (state) {
         case LEX_ST_NORMAL: