Mercurial > hg > xemacs-beta

diff src/number.c @ 1996:ea0e08ca2c78

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-04-07 14:55:31 by james] Return a Lisp boolean, not a C boolean, from Fevenp and Foddp.
author james
date Wed, 07 Apr 2004 14:55:34 +0000
parents 4e6a63799f08
children cc5b615380f8
line wrap: on
line diff
--- 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;
 }