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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-12-18 18:11:45 -0800 (Sun, 18 Dec 2005)
New Revision: 2644

Modified:
   branches/r5rs/uim/uim-compat-scm.c
   branches/r5rs/uim/uim-scm.c
Log:
* uim/uim-scm.c
  - (uim_scm_make_str): Follow the recent renamings on string object
    creators
* uim/uim-compat-scm.c
  - (uim_scm_c_strs_into_list, uim_scm_init_fsubr): Ditto


Modified: branches/r5rs/uim/uim-compat-scm.c
===================================================================
--- branches/r5rs/uim/uim-compat-scm.c	2005-12-19 02:06:54 UTC (rev 2643)
+++ branches/r5rs/uim/uim-compat-scm.c	2005-12-19 02:11:45 UTC (rev 2644)
@@ -187,7 +187,7 @@
 
   for (i = n_strs - 1; 0 <= i; i--) {
     c_str = strs[i];
-    str = (uim_lisp)scm_make_mutable_string_copying(c_str);
+    str = (uim_lisp)SCM_MAKE_STRING_COPYING(c_str);
     lst = (uim_lisp)scm_make_cons((ScmObj)str, (ScmObj)lst);
   }
 
@@ -292,7 +292,7 @@
 void
 uim_scm_provide(const char *feature)
 {
-  scm_p_provide(scm_make_immutable_string_copying(feature));
+  scm_p_provide(SCM_MAKE_IMMUTABLE_STRING_COPYING(feature));
 }
 
 

Modified: branches/r5rs/uim/uim-scm.c
===================================================================
--- branches/r5rs/uim/uim-scm.c	2005-12-19 02:06:54 UTC (rev 2643)
+++ branches/r5rs/uim/uim-scm.c	2005-12-19 02:11:45 UTC (rev 2644)
@@ -222,7 +222,7 @@
 uim_lisp
 uim_scm_make_str(const char *str)
 {
-  return (uim_lisp)scm_make_mutable_string_copying(str);
+  return (uim_lisp)SCM_MAKE_STRING_COPYING(str);
 }
 
 char *