# HG changeset patch
# User james
# Date 1081349734 0
# Node ID ea0e08ca2c78355e686c428c332d6dc55baf0362
# Parent  4e6a63799f08e284ecef0b47d6dbee570fe65d4a
[xemacs-hg @ 2004-04-07 14:55:31 by james]
Return a Lisp boolean, not a C boolean, from Fevenp and Foddp.

diff -r 4e6a63799f08 -r ea0e08ca2c78 src/ChangeLog
--- a/src/ChangeLog	Wed Apr 07 03:49:00 2004 +0000
+++ b/src/ChangeLog	Wed Apr 07 14:55:34 2004 +0000
@@ -1,3 +1,9 @@
+2004-04-07  Jerry James  <james@xemacs.org>
+
+	* number.c (Fevenp): Change the C boolean into Qnil/Qt.  Thanks to
+	Robert Royar, Stephen Turnbull, and Hrvoje Niksic.
+	* number.c (Foddp): Ditto.
+
 2004-04-06  Jerry James  <james@xemacs.org>
 
 	* bytecode.c (bytecode_arithcompare): Provide a default case to
diff -r 4e6a63799f08 -r ea0e08ca2c78 src/number.c
--- a/src/number.c	Wed Apr 07 03:49:00 2004 +0000
+++ b/src/number.c	Wed Apr 07 14:55:34 2004 +0000
@@ -124,9 +124,9 @@
        (integer))
 {
   CONCHECK_INTEGER (integer);
-  return BIGNUMP (integer)
-    ? bignum_evenp (XBIGNUM_DATA (integer))
-    : XTYPE (integer) == Lisp_Type_Int_Even;
+  return (BIGNUMP (integer)
+	  ? bignum_evenp (XBIGNUM_DATA (integer))
+	  : XTYPE (integer) == Lisp_Type_Int_Even) ? Qt : Qnil;
 }
 
 DEFUN ("odd", Foddp, 1, 1, 0, /*
@@ -135,9 +135,9 @@
        (integer))
 {
   CONCHECK_INTEGER (integer);
-  return BIGNUMP (integer)
-    ? bignum_oddp (XBIGNUM_DATA (integer))
-    : XTYPE (integer) == Lisp_Type_Int_Odd;
+  return (BIGNUMP (integer)
+	  ? bignum_oddp (XBIGNUM_DATA (integer))
+	  : XTYPE (integer) == Lisp_Type_Int_Odd) ? Qt : Qnil;
 }