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

[ekato at freedesktop.org]

Author: ekato
Date: 2005-08-25 06:36:40 -0700 (Thu, 25 Aug 2005)
New Revision: 1312

Modified:
   branches/r5rs/uim/uim.c
Log:
* uim/uim.c (uim_create_context) : Fix to quote lang and engine.


Modified: branches/r5rs/uim/uim.c
===================================================================
--- branches/r5rs/uim/uim.c	2005-08-25 08:49:33 UTC (rev 1311)
+++ branches/r5rs/uim/uim.c	2005-08-25 13:36:40 UTC (rev 1312)
@@ -194,8 +194,8 @@
 #else
   {
     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 lang_   = uim_scm_quote(uim_scm_make_symbol(lang));
+    uim_lisp engine_ = uim_scm_quote(uim_scm_make_symbol(engine));
     uim_lisp proc    = uim_scm_make_symbol("create-context");
     uim_lisp form    = uim_scm_list4(proc, id_, lang_, engine_);