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

[tkng at freedesktop.org]

Author: tkng
Date: 2005-07-29 04:57:37 -0700 (Fri, 29 Jul 2005)
New Revision: 1061

Modified:
   branches/r5rs/uim/uim-scm.c
Log:
* uim/uim-scm.c:
 -(uim_scm_string_equal): Replaced with SigScheme's function.
 -(uim_scm_eval_c_string): Replaced with SigScheme's function.


Modified: branches/r5rs/uim/uim-scm.c
===================================================================
--- branches/r5rs/uim/uim-scm.c	2005-07-29 11:49:06 UTC (rev 1060)
+++ branches/r5rs/uim/uim-scm.c	2005-07-29 11:57:37 UTC (rev 1061)
@@ -279,7 +279,10 @@
 uim_bool
 uim_scm_string_equal(uim_lisp a, uim_lisp b)
 {
-  return NFALSEP((uim_lisp)string_equal((ScmObj)a, (ScmObj)b));
+  if(ScmOp_string_equal(a, b) == SigScm_true)
+    return UIM_TRUE;
+  else
+    return UIM_FALSE;
 }
 
 uim_lisp
@@ -303,8 +306,7 @@
 uim_lisp
 uim_scm_eval_c_string(const char *str)
 {
-  repl_c_string((char *)str, 0, 0);
-  return uim_scm_return_value();
+  return Scm_eval_c_string(exp);
 }
 
 uim_lisp