Mercurial > hg > xemacs-beta
diff src/number.h @ 2092:f557693c61de
[xemacs-hg @ 2004-05-21 20:56:26 by james]
Batch of fixes and new functions for bignums, ratios, and bigfloats.
| author | james |
|---|---|
| date | Fri, 21 May 2004 20:56:32 +0000 |
| parents | 471242c84954 |
| children | 639cdee384e4 |
line wrap: on
line diff
--- a/src/number.h Fri May 21 03:27:58 2004 +0000 +++ b/src/number.h Fri May 21 20:56:32 2004 +0000 @@ -106,7 +106,6 @@ #else /* !HAVE_BIGNUM */ -extern Lisp_Object Qbignump; #define BIGNUMP(x) 0 #define CHECK_BIGNUM(x) dead_wrong_type_argument (Qbignump, x) #define CONCHECK_BIGNUM(x) dead_wrong_type_argument (Qbignump, x) @@ -116,6 +115,7 @@ #endif /* HAVE_BIGNUM */ +extern Lisp_Object Qbignump; EXFUN (Fbignump, 1); @@ -189,7 +189,6 @@ #else /* !HAVE_RATIO */ -extern Lisp_Object Qratiop; #define RATIOP(x) 0 #define CHECK_RATIO(x) dead_wrong_type_argument (Qratiop, x) #define CONCHECK_RATIO(x) dead_wrong_type_argument (Qratiop, x) @@ -199,6 +198,7 @@ #endif /* HAVE_RATIO */ +extern Lisp_Object Qratiop; EXFUN (Fratiop, 1); @@ -262,7 +262,6 @@ #else /* !HAVE_BIGFLOAT */ -extern Lisp_Object Qbigfloatp; #define BIGFLOATP(x) 0 #define CHECK_BIGFLOAT(x) dead_wrong_type_argument (Qbigfloatp, x) #define CONCHECK_BIGFLOAT(x) dead_wrong_type_argument (Qbigfloatp, x) @@ -272,6 +271,7 @@ #endif /* HAVE_BIGFLOAT */ +extern Lisp_Object Qbigfloatp; EXFUN (Fbigfloatp, 1); /********************************* Floating *********************************/