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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-11-01 02:44:54 -0800 (Tue, 01 Nov 2005)
New Revision: 1928

Modified:
   branches/r5rs/sigscheme/operations.c
   branches/r5rs/sigscheme/test/test-string.scm
Log:
* sigscheme/operations.c
  - (ScmOp_string_ref): Correct logical meaning

* sigscheme/test/test-string.scm
  - Fix a typo


Modified: branches/r5rs/sigscheme/operations.c
===================================================================
--- branches/r5rs/sigscheme/operations.c	2005-11-01 10:26:20 UTC (rev 1927)
+++ branches/r5rs/sigscheme/operations.c	2005-11-01 10:44:54 UTC (rev 1928)
@@ -1283,7 +1283,7 @@
     /* copy from start_ptr to end_ptr */
     new_ch = (char*)malloc(SCM_MBS_GET_SIZE(mbs) + 1);
     memcpy(new_ch, SCM_MBS_GET_STR(mbs), SCM_MBS_GET_SIZE(mbs));
-    new_ch[SCM_MBS_GET_SIZE(mbs)] = 0;
+    new_ch[SCM_MBS_GET_SIZE(mbs)] = '\0';
 
     return Scm_NewChar(new_ch);
 }

Modified: branches/r5rs/sigscheme/test/test-string.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-string.scm	2005-11-01 10:26:20 UTC (rev 1927)
+++ branches/r5rs/sigscheme/test/test-string.scm	2005-11-01 10:44:54 UTC (rev 1928)
@@ -10,7 +10,7 @@
 
 ;; check string-ref
 (assert-equal? "alphabet string-ref check" #\o  (string-ref "aiueo" 4))
-(assert-equal? "hiragena string-ref check" #\¤ª (string-ref "¤¢¤¤¤¦¤¨¤ª" 4))
+(assert-equal? "hiragana string-ref check" #\¤ª (string-ref "¤¢¤¤¤¦¤¨¤ª" 4))
 (assert-equal? "mixed string-ref check"    #\¤ª (string-ref "¤¢iue¤ª" 4))
 (assert-equal? "alphabet string-ref 0 check" #\a  (string-ref "aiueo" 0))
 (assert-equal? "hiragena string-ref 0 check" #\¤¢ (string-ref "¤¢¤¤¤¦¤¨¤ª" 0))