[uim-commit] r2223 - in branches/r5rs/sigscheme: . test

[kzk at freedesktop.org]

Author: kzk
Date: 2005-11-22 03:21:40 -0800 (Tue, 22 Nov 2005)
New Revision: 2223

Modified:
   branches/r5rs/sigscheme/io.c
   branches/r5rs/sigscheme/test/test-string.scm
Log:
* sigscheme/io.c
  - (Scm_special_char_table): fix invalid "nul"'s escape sequence
    representation. see at SRFI-75.

* sigscheme/test/test-string.scm
  - remove wrong testcase for "nul"


Modified: branches/r5rs/sigscheme/io.c
===================================================================
--- branches/r5rs/sigscheme/io.c	2005-11-22 11:02:10 UTC (rev 2222)
+++ branches/r5rs/sigscheme/io.c	2005-11-22 11:21:40 UTC (rev 2223)
@@ -77,7 +77,7 @@
     /* control characters */
     {'\n',   "\\n",   "newline"},    /*  10, R5RS */
 #if SCM_USE_SRFI75_NAMED_CHARS
-    {'\0',   "\\0",   "nul"},        /*   0 */
+    {'\0',   "\\x00", "nul"},        /*   0 */
     {'\a',   "\\a",   "alarm"},      /*   7 */
     {'\b',   "\\b",   "backspace"},  /*   8 */
     {'\t',   "\\t",   "tab"},        /*   9 */

Modified: branches/r5rs/sigscheme/test/test-string.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-string.scm	2005-11-22 11:02:10 UTC (rev 2222)
+++ branches/r5rs/sigscheme/test/test-string.scm	2005-11-22 11:21:40 UTC (rev 2223)
@@ -173,9 +173,6 @@
 (assert-equal? "R5RS escape sequence" '(#\newline) (string->list "\n"))  ;; 110
 
 ;; R6RS(SRFI-75) compliant
-(assert-equal? "R6RS escape sequence" (integer->string 0)        "\0")  ;; 0
-(assert-equal? "R6RS escape sequence" (list->string '(#\nul))    "\0")  ;; 0
-(assert-equal? "R6RS escape sequence" '(#\nul)    (string->list "\0"))  ;; 0
 (assert-equal? "R6RS escape sequence" (integer->string 7)        "\a")  ;; 97
 (assert-equal? "R6RS escape sequence" (list->string '(#\alarm))  "\a")  ;; 97
 (assert-equal? "R6RS escape sequence" '(#\alarm)  (string->list "\a"))  ;; 97