===================================================================
RCS file: /home/cvs/OpenXM_contrib/pari-2.2/src/language/Attic/anal.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -p -r1.1.1.1 -r1.2
--- OpenXM_contrib/pari-2.2/src/language/Attic/anal.c	2001/10/02 11:17:10	1.1.1.1
+++ OpenXM_contrib/pari-2.2/src/language/Attic/anal.c	2002/07/25 08:06:08	1.2
@@ -1,4 +1,4 @@
-/* $Id: anal.c,v 1.1.1.1 2001/10/02 11:17:10 noro Exp $
+/* $Id: anal.c,v 1.2 2002/07/25 08:06:08 noro Exp $
 
 Copyright (C) 2000  The PARI group.
 
@@ -606,7 +606,7 @@ err_match(char *s, char c)
 }
 
 #define match2(s,c) if (*s != c) err_match(s,c);
-#define match(c) ({match2(analyseur, c); analyseur++;})
+#define match(c) do {match2(analyseur, c); analyseur++;} while (0)
 
 static long
 readlong()