[uim commit] r1207 - branches/r5rs/sigscheme

[codesite-noreply]

Author: kzk
Date: Wed Aug 17 08:48:46 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        (original)
+++ branches/r5rs/sigscheme/operations.c        Wed Aug 17 08:48:46 2005
@@ -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;