===================================================================
RCS file: /home/cvs/OpenXM_contrib/pari-2.2/src/headers/Attic/paritype.h,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- OpenXM_contrib/pari-2.2/src/headers/Attic/paritype.h	2001/10/02 11:17:07	1.1
+++ OpenXM_contrib/pari-2.2/src/headers/Attic/paritype.h	2002/09/11 07:26:58	1.2
@@ -1,4 +1,4 @@
-/* $Id: paritype.h,v 1.1 2001/10/02 11:17:07 noro Exp $
+/* $Id: paritype.h,v 1.2 2002/09/11 07:26:58 noro Exp $
 
 Copyright (C) 2000  The PARI group.
 
@@ -45,6 +45,7 @@ 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 )
+#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_rfrac_t(t) ( (t) == t_RFRAC || (t) == t_RFRACN )