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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-11-03 08:08:22 -0800 (Thu, 03 Nov 2005)
New Revision: 1979

Modified:
   branches/r5rs/uim/uim-scm.c
Log:
* uim/uim-scm.c
  - (uim_scm_eq, ScmOp_string_equal): Fix incorrect boolean
    condition. Compare a value with #t is not means boolean truth but
    identity check with #t


Modified: branches/r5rs/uim/uim-scm.c
===================================================================
--- branches/r5rs/uim/uim-scm.c	2005-11-03 15:32:59 UTC (rev 1978)
+++ branches/r5rs/uim/uim-scm.c	2005-11-03 16:08:22 UTC (rev 1979)
@@ -397,7 +397,7 @@
 uim_bool
 uim_scm_eq(uim_lisp a, uim_lisp b)
 {
-  if (SCM_EQ(ScmOp_eqp((ScmObj) a, (ScmObj) b), SCM_TRUE))
+  if (SCM_EQ((ScmObj)a, (ScmObj)b))
     return UIM_TRUE;
 
   return UIM_FALSE;
@@ -406,7 +406,7 @@
 uim_bool
 uim_scm_string_equal(uim_lisp a, uim_lisp b)
 {
-  if(SCM_EQ(ScmOp_stringequal((ScmObj)a, (ScmObj)b), SCM_TRUE))
+  if (SCM_NFALSEP(ScmOp_stringequal((ScmObj)a, (ScmObj)b)))
     return UIM_TRUE;
 
   return UIM_FALSE;