===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/builtin/isolv.c,v
retrieving revision 1.4
retrieving revision 1.6
diff -u -p -r1.4 -r1.6
--- OpenXM_contrib2/asir2000/builtin/isolv.c	2005/02/08 18:06:05	1.4
+++ OpenXM_contrib2/asir2000/builtin/isolv.c	2006/12/22 05:00:08	1.6
@@ -1,5 +1,5 @@
 /*
- * $OpenXM: OpenXM_contrib2/asir2000/builtin/isolv.c,v 1.3 2003/10/23 01:32:59 saito Exp $
+ * $OpenXM: OpenXM_contrib2/asir2000/builtin/isolv.c,v 1.5 2005/07/14 22:46:03 kondoh Exp $
  */
 
 #include "ca.h"
@@ -66,7 +66,7 @@ Obj  *rp;
 			fprintf(stderr,"solve,");
 			error(" : Sorry, not yet implement of multivars");
 			break;
-		defaults:
+		default:
 			*rp = 0;
 	}
 }
@@ -118,18 +118,18 @@ Obj  *rp;
 				ToBf(r, &breal);
 				NEXTNODE( n0, n );
 				MKNODE(ln0, breal, NEXT(m));
-				MKLIST((LIST)listp, ln0);
+				MKLIST(listp, ln0);
 				BDY(n) = (pointer)listp;
 			}
 			NEXT(n) = 0;
-			MKLIST((LIST)listp,n0);
+			MKLIST(listp,n0);
 			*rp = (pointer)listp;
 			break;
 		case O_LIST:
 			fprintf(stderr,"solve,");
 			error(" : Sorry, not yet implement of multivars");
 			break;
-		defaults:
+		default:
 			*rp = 0;
 	}
 }