Mercurial > hg > xemacs-beta
changeset 1996:ea0e08ca2c78
[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 | f02e47602886 |
| files | src/ChangeLog src/number.c |
| diffstat | 2 files changed, 12 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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; }