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

[kzk at freedesktop.org]

Author: kzk
Date: 2005-11-21 14:19:20 -0800 (Mon, 21 Nov 2005)
New Revision: 2211

Modified:
   branches/r5rs/sigscheme/read.c
Log:
* sigscheme/read.c
  - (read_string): simplify


Modified: branches/r5rs/sigscheme/read.c
===================================================================
--- branches/r5rs/sigscheme/read.c	2005-11-21 20:35:25 UTC (rev 2210)
+++ branches/r5rs/sigscheme/read.c	2005-11-21 22:19:20 UTC (rev 2211)
@@ -395,14 +395,13 @@
             found = 0;
             for (info = Scm_special_char_table; info->esc_seq; info++) {
                 if (strlen(info->esc_seq) > 1 && c == info->esc_seq[1]) {
-                    stringbuf[stringlen] = info->code;
+                    stringbuf[stringlen++] = info->code;
                     found = 1;
                     break;
                 }
             }
             if (found == 0)
                 SigScm_Error("the character in a string after a backslash causes invalid escape sequence");
-            stringlen++;
             break;
 
         default: