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

[kzk at freedesktop.org]

Author: kzk
Date: 2005-11-21 12:35:25 -0800 (Mon, 21 Nov 2005)
New Revision: 2210

Modified:
   branches/r5rs/sigscheme/read.c
Log:
* sigscheme/read.c
  - call SigScm_Error when invalid escape sequence is found.
    but this doesn't properly handle \x yet.


Modified: branches/r5rs/sigscheme/read.c
===================================================================
--- branches/r5rs/sigscheme/read.c	2005-11-21 20:32:19 UTC (rev 2209)
+++ branches/r5rs/sigscheme/read.c	2005-11-21 20:35:25 UTC (rev 2210)
@@ -400,10 +400,8 @@
                     break;
                 }
             }
-            if (!found) {
-                stringbuf[stringlen] = '\\';
-                stringbuf[++stringlen] = c;
-            }
+            if (found == 0)
+                SigScm_Error("the character in a string after a backslash causes invalid escape sequence");
             stringlen++;
             break;