[uim-commit] r2238 - branches/r5rs/uim

[kzk at freedesktop.org]

Author: kzk
Date: 2005-11-22 22:28:48 -0800 (Tue, 22 Nov 2005)
New Revision: 2238

Modified:
   branches/r5rs/uim/uim-compat-scm.c
   branches/r5rs/uim/uim-scm.c
Log:
* uim/uim-compat-scm.c
  - (uim_scm_c_strs_into_list): use Scm_NewMutableStringCopying
  - (uim_scm_provide): use Scm_NewImmutableStringCopying
* uim/uim-scm.c
  - (uim_scm_make_str): use Scm_NewMutableStringCopying


Modified: branches/r5rs/uim/uim-compat-scm.c
===================================================================
--- branches/r5rs/uim/uim-compat-scm.c	2005-11-23 06:22:29 UTC (rev 2237)
+++ branches/r5rs/uim/uim-compat-scm.c	2005-11-23 06:28:48 UTC (rev 2238)
@@ -187,7 +187,7 @@
 
   for (i = n_strs - 1; 0 <= i; i--) {
     c_str = strs[i];
-    str = (uim_lisp)Scm_NewStringCopying(c_str);
+    str = (uim_lisp)Scm_NewMutableStringCopying(c_str);
     lst = (uim_lisp)Scm_NewCons((ScmObj)str, (ScmObj)lst);
   }
 
@@ -292,7 +292,7 @@
 void
 uim_scm_provide(const char *feature)
 {
-  ScmOp_provide(Scm_NewStringCopying(feature));
+  ScmOp_provide(Scm_NewImmutableStringCopying(feature));
 }
 
 

Modified: branches/r5rs/uim/uim-scm.c
===================================================================
--- branches/r5rs/uim/uim-scm.c	2005-11-23 06:22:29 UTC (rev 2237)
+++ branches/r5rs/uim/uim-scm.c	2005-11-23 06:28:48 UTC (rev 2238)
@@ -221,7 +221,7 @@
 uim_lisp
 uim_scm_make_str(const char *str)
 {
-  return (uim_lisp)Scm_NewStringCopying(str);
+  return (uim_lisp)Scm_NewMutableStringCopying(str);
 }
 
 char *