[uim-commit] r1207 - branches/r5rs/sigscheme

[kzk at freedesktop.org]

Author: kzk
Date: 2005-08-17 08:48:46 -0700 (Wed, 17 Aug 2005)
New Revision: 1207

Modified:
   branches/r5rs/sigscheme/operations.c
Log:
* sigscheme/operations.c
  - (ScmOp_oddp): handle minus value correctly


Modified: branches/r5rs/sigscheme/operations.c
===================================================================
--- branches/r5rs/sigscheme/operations.c	2005-08-17 06:37:01 UTC (rev 1206)
+++ branches/r5rs/sigscheme/operations.c	2005-08-17 15:48:46 UTC (rev 1207)
@@ -529,7 +529,8 @@
     if (EQ(ScmOp_numberp(scm_num), SCM_FALSE))
         SigScm_ErrorObj("odd? : number required but got ", scm_num);
 
-    if (SCM_INT_VALUE(scm_num) % 2 == 1)
+    if (SCM_INT_VALUE(scm_num) % 2 == 1
+	|| SCM_INT_VALUE(scm_num) % 2 == -1)
         return SCM_TRUE;
     else
         return SCM_FALSE;