[Maxima-commits] CVS: maxima/share/sym resolvante.mac,1.1.1.1,1.2

[Wolfgang J. <wje...@us...>]

Update of /cvsroot/maxima/maxima/share/sym
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26897

Modified Files:
	resolvante.mac 
Log Message:
Downcase `For'.


Index: resolvante.mac
===================================================================
RCS file: /cvsroot/maxima/maxima/share/sym/resolvante.mac,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -d -r1.1.1.1 -r1.2
--- resolvante.mac	8 May 2000 06:09:44 -0000	1.1.1.1
+++ resolvante.mac	24 Nov 2004 23:56:08 -0000	1.2
@@ -35,7 +35,7 @@
         A[0]:makelist(binomial(n,r),r,0,n),
         A[1] :cons(n,makelist(coeff(p,x,n-i)*(-1)^i/coeff(p,x,n),i,1,n)),
         pui_depart:ele2pui(binomial(n,krmax)*krmax,A[1]),
-        For i:1 thru quotient(n,2)
+        for i:1 thru quotient(n,2)
            do for k:binomial(n,i-1)+1 thru binomial(n,i)
               do A[k] : pui2ele(n-i,makelist(part(pui_depart,r*k+1),
                                           r,0,n-i)),