=================================================================== RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/Kclass/indeterminate.c,v retrieving revision 1.1.1.1 retrieving revision 1.4 diff -u -p -r1.1.1.1 -r1.4 --- OpenXM/src/kan96xx/Kan/Kclass/indeterminate.c 1999/10/08 02:12:02 1.1.1.1 +++ OpenXM/src/kan96xx/Kan/Kclass/indeterminate.c 2001/04/12 06:48:27 1.4 @@ -1,3 +1,4 @@ +/* $OpenXM: OpenXM/src/kan96xx/Kan/Kclass/indeterminate.c,v 1.3 2000/02/28 14:10:30 takayama Exp $ */ /* Kclass/indeterminate.c */ /* This file handles indeterminate, tree, recursivePolynomial, polynomialInOneVariable @@ -138,7 +139,7 @@ struct object addTree(struct object ob1, struct object } rob = newObjectArray(3); putoa(rob,0,KpoString("add")); - putoa(rob,1,KpoString("Basic")); + putoa(rob,1,KpoString("basic")); putoa(rob,2,aob); return(KpoTree(rob)); } @@ -181,7 +182,13 @@ static void printBodyOfRecursivePolynomial(struct obj for (j=1; j 1) { fprintf(fp,"^%d ",k); }else if (k == 1) { @@ -434,8 +441,10 @@ int isRecursivePolynomial2(struct object ob) { n = getoaSize(ob1); for (i=0; i