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

[tkng at freedesktop.org]

Author: tkng
Date: 2005-07-29 05:29:26 -0700 (Fri, 29 Jul 2005)
New Revision: 1066

Modified:
   branches/r5rs/uim/uim.c
Log:
* uim/uim.c:
 -(uim_create_context): Replaced UIM_EVAL_FSTRING3 with the 
  combination of uim_scm_list3 & uim_scm_apply.


Modified: branches/r5rs/uim/uim.c
===================================================================
--- branches/r5rs/uim/uim.c	2005-07-29 12:21:34 UTC (rev 1065)
+++ branches/r5rs/uim/uim.c	2005-07-29 12:29:26 UTC (rev 1066)
@@ -189,8 +189,16 @@
     uim_last_client_encoding = strdup(enc);
   }
 
-  UIM_EVAL_FSTRING3(uc, "(create-context %d '%s '%s)", uc->id, lang, engine);
+  {
+    uim_lisp id_    = uim_scm_make_int(uc->id);
+    uim_lisp lang_  = uim_scm_make_str(lang);
+    uim_lisp engine = uim_scm_make_str(engine);
+    uim_lisp proc   = uim_scm_make_symbol("create-context");
+    uim_lisp args   = uim_scm_list3(id_, lang_, engine);
 
+    uim_scm_apply(proc, args);
+      
+  }
   return uc;
 }