version 1.1, 2001/10/02 11:17:07 |
version 1.2, 2002/09/11 07:26:58 |
Line 45 Foundation, Inc., 59 Temple Place - Suite 330, Boston, |
|
Line 45 Foundation, Inc., 59 Temple Place - Suite 330, Boston, |
|
|
|
/* #define is_intreal_t(t) ( (t) == t_REAL || (t) == t_INT ) */ |
/* #define is_intreal_t(t) ( (t) == t_REAL || (t) == t_INT ) */ |
#define is_intreal_t(t) ( (t) <= t_REAL ) |
#define is_intreal_t(t) ( (t) <= t_REAL ) |
|
#define is_rational_t(t) ((t)==t_INT || (t)==t_FRAC) /* FRACN omitted */ |
|
|
#define is_frac_t(t) ( (t) == t_FRAC || (t) == t_FRACN ) |
#define is_frac_t(t) ( (t) == t_FRAC || (t) == t_FRACN ) |
#define is_rfrac_t(t) ( (t) == t_RFRAC || (t) == t_RFRACN ) |
#define is_rfrac_t(t) ( (t) == t_RFRAC || (t) == t_RFRACN ) |