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

[kzk at freedesktop.org]

Author: kzk
Date: 2005-11-22 02:59:47 -0800 (Tue, 22 Nov 2005)
New Revision: 2221

Modified:
   branches/r5rs/sigscheme/read.c
Log:
* sigscheme/read.c
  - (read_string): make "\x" an error


Modified: branches/r5rs/sigscheme/read.c
===================================================================
--- branches/r5rs/sigscheme/read.c	2005-11-22 10:12:58 UTC (rev 2220)
+++ branches/r5rs/sigscheme/read.c	2005-11-22 10:59:47 UTC (rev 2221)
@@ -394,8 +394,9 @@
             SCM_PORT_GETC(port, c);
             found = 0;
             for (info = Scm_special_char_table; info->esc_seq; info++) {
-                if (strlen(info->esc_seq) > 1 && c == info->esc_seq[1]) {
+                if (strlen(info->esc_seq) == 2 && c == info->esc_seq[1]) {
                     stringbuf[stringlen++] = info->code;
+                    printf("found = %s\n", info->lex_rep);
                     found = 1;
                     break;
                 }