===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/parse/quote.c,v
retrieving revision 1.18
retrieving revision 1.20
diff -u -p -r1.18 -r1.20
--- OpenXM_contrib2/asir2000/parse/quote.c	2004/07/13 09:10:39	1.18
+++ OpenXM_contrib2/asir2000/parse/quote.c	2004/08/09 06:42:53	1.20
@@ -1,4 +1,4 @@
-/* $OpenXM: OpenXM_contrib2/asir2000/parse/quote.c,v 1.17 2004/07/13 07:59:54 noro Exp $ */
+/* $OpenXM: OpenXM_contrib2/asir2000/parse/quote.c,v 1.19 2004/08/05 00:56:54 noro Exp $ */
 
 #include "ca.h"
 #include "parse.h"
@@ -318,13 +318,12 @@ void vartoquote(V v,QUOTE *c)
 			if ( x && OID(x)==O_P && !NEXT(DC(x))
 				&& UNIQ(DEG(DC(x))) && UNIQ(COEF(DC(x))) ) {
 				/* use a as is */
-				u = a;
 			} else {
 				/* a => (a) */
-				MKQUOTE(u,mkfnode(1,I_PAREN,BDY(a)));
+				MKQUOTE(u,mkfnode(1,I_PAREN,BDY(a))); a = u;
 			}
 			objtoquote(ad[1].arg,&b);
-			pwrquote(CO,u,b,c);
+			pwrquote(CO,a,b,c);
 		} else {
 			for ( i = 0; i < pf->argc; i++ )
 				if ( ad[i].d )