===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/io/ox.c,v
retrieving revision 1.1.1.1
retrieving revision 1.4
diff -u -p -r1.1.1.1 -r1.4
--- OpenXM_contrib2/asir2000/io/ox.c	1999/12/03 07:39:11	1.1.1.1
+++ OpenXM_contrib2/asir2000/io/ox.c	2000/03/28 06:32:22	1.4
@@ -1,6 +1,7 @@
-/* $OpenXM: OpenXM/src/asir99/io/ox.c,v 1.7 1999/11/19 04:15:49 noro Exp $ */
+/* $OpenXM: OpenXM_contrib2/asir2000/io/ox.c,v 1.3 2000/02/08 04:47:11 noro Exp $ */
 #include "ca.h"
 #include "parse.h"
+#include "signal.h"
 #include "wsio.h"
 #include "ox.h"
 
@@ -19,6 +20,7 @@ unsigned int ox_serial;
 int ox_flushing;
 int ox_batch;
 int ox_check=1;
+int ox_exchange_mathcap=1;
 jmp_buf ox_env;
 
 MATHCAP my_mathcap;
@@ -565,13 +567,18 @@ int ox_check_cmo(int s, Obj obj)
 		case O_DP:
 			return ox_check_cmo_dp(s,(DP)obj);	
 		case O_N:
-			if ( NID((Num)obj) == N_Q ) {
-				if ( INT((Q)obj) )
-					return check_by_mc(s,OX_DATA,CMO_ZZ);
-				else
-					return check_by_mc(s,OX_DATA,CMO_QQ);
-			} else
-				return 0;
+			switch ( NID((Num)obj) ) {
+				case N_Q:
+					if ( INT((Q)obj) )
+						return check_by_mc(s,OX_DATA,CMO_ZZ);
+					else
+						return check_by_mc(s,OX_DATA,CMO_QQ);
+				case N_R:
+					return 1;
+				default:
+					return 0;
+			}
+			break;
 		case O_LIST:
 			for ( m = BDY((LIST)obj); m; m = NEXT(m) )
 				if ( !ox_check_cmo(s,(BDY(m))) )