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

[kzk at freedesktop.org]

Author: kzk
Date: 2005-11-08 11:33:25 -0800 (Tue, 08 Nov 2005)
New Revision: 2096

Modified:
   branches/r5rs/sigscheme/TODO
   branches/r5rs/sigscheme/debug.c
Log:
* fix bugs notified at r2088

* sigscheme/debug.c
  - (print_string): print esc_seq
* sigscheme/TODO
  - update


Modified: branches/r5rs/sigscheme/TODO
===================================================================
--- branches/r5rs/sigscheme/TODO	2005-11-08 19:23:34 UTC (rev 2095)
+++ branches/r5rs/sigscheme/TODO	2005-11-08 19:33:25 UTC (rev 2096)
@@ -5,17 +5,6 @@
   to find the issues, and make all tests in test-char.scm and test-string.scm
   passed
 
-  Fix following bugs:
-
-  sscm> " "
-  => "space"
-  sscm> "\n"
-  => "newline"
-  sscm> "\""
-  => """
-  sscm> "\\"
-  -> "\"
-
 * Introduce Exception handling (probably should be based on SRFI-34)
   - Reimplement with dynamic-wind, and without direct setjmp/longjmp
   - Rename call/cc with call/ec? ([Anthy-dev 2216])

Modified: branches/r5rs/sigscheme/debug.c
===================================================================
--- branches/r5rs/sigscheme/debug.c	2005-11-08 19:23:34 UTC (rev 2095)
+++ branches/r5rs/sigscheme/debug.c	2005-11-08 19:33:25 UTC (rev 2096)
@@ -347,7 +347,7 @@
             found = 0;
             for (info = Scm_special_char_table; info->esc_seq; info++) {
                 if (c == info->code) {
-                    SigScm_PortPrintf(port, "%s", info->lex_rep);
+                    SigScm_PortPrintf(port, "%s", info->esc_seq);
                     found = 1;
                     break;
                 }