===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/extern2.h,v
retrieving revision 1.1.1.1
retrieving revision 1.3
diff -u -p -r1.1.1.1 -r1.3
--- OpenXM/src/kan96xx/Kan/extern2.h	1999/10/08 02:12:01	1.1.1.1
+++ OpenXM/src/kan96xx/Kan/extern2.h	2003/04/09 01:06:57	1.3
@@ -1,3 +1,4 @@
+/* $OpenXM: OpenXM/src/kan96xx/Kan/extern2.h,v 1.2 2000/01/16 07:55:38 takayama Exp $ */
 /* poly.c */
 void KinitKan(void);
 MONOMIAL newMonomial(struct ring *ringp);
@@ -184,7 +185,7 @@ int (*grade)(POLY f);
 #define checkRing2(f,g) {\
   if ((f)->m->ringp != (g)->m->ringp) {\
     fprintf(stderr,"f and g must be in a same ring. Type in ctrl-\\");\
-    getchar(); getchar(); exit();\
+    getchar(); getchar(); exit(1);\
     }\
 }