[Maxima-commits] CVS: maxima/share/contrib diag.mac,1.3,1.4

[Robert D. <rob...@us...>]

Update of /cvsroot/maxima/maxima/share/contrib
In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv24834/share/contrib

Modified Files:
	diag.mac 
Log Message:
Make variable "sold" a local variable.
Patch supplied by Joan Pau. Resolves SF bug # 2907815,
"sold variable in diag(x) (package diag) should be local".

Index: diag.mac
===================================================================
RCS file: /cvsroot/maxima/maxima/share/contrib/diag.mac,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- diag.mac	13 Feb 2005 07:28:57 -0000	1.3
+++ diag.mac	31 Jan 2010 20:53:48 -0000	1.4
@@ -36,8 +36,8 @@
   makelist(a,k,1,n))$
  
 
-  diag(x):= block([ mmatrix,z1,ztemp,zero,n,ntemp,sumn,i,j,k,s,front,back],
-    mode_declare([z1,ztemp,zero],list,[mmatrix],any,[n,ntemp,sumn,i,j,k,s,front,back],fixnum),
+  diag(x):= block([ mmatrix,z1,ztemp,zero,n,ntemp,sumn,i,j,k,s,sold,front,back],
+    mode_declare([z1,ztemp,zero],list,[mmatrix],any,[n,ntemp,sumn,i,j,k,s,sold,front,back],fixnum),
     n:length(x),sumn:0,front:0,sold:0,
     /*gard*/
     for i:1 thru n do (