Rename variables that clash w/ new "attempt" keyword

Author: d-torrance

M2/Macaulay2/packages/Cremona.m2

@@ -1690,9 +1690,9 @@ point (Ideal,Boolean) := (I,b) -> (  -- see also: code(randomKRationalPoint,Idea
    local par;
    if c == 1 then (
        L := {}; 
-       maxAttempts := 20; attempt := 0;
-       while #L == 0 and attempt < maxAttempts do (attempt = attempt+1; par = parametrize randomLinearSubspace(R,1); L = select(decompose par^* I,q -> dim q == 1 and degree q == 1));
-       if #L == 0 and attempt >= maxAttempts then error("reached maximum number of "|toString(maxAttempts)|" attempts to find point");
+       maxTries := 20; tries := 0;
+       while #L == 0 and tries < maxTries do (tries += 1; par = parametrize randomLinearSubspace(R,1); L = select(decompose par^* I,q -> dim q == 1 and degree q == 1));
+       if #L == 0 and tries >= maxTries then error("reached maximum number of "|toString(maxTries)|" attempts to find point");
        p = par first L;
    ); 
    if c > 1 and n - c >= 2 then (

M2/Macaulay2/packages/NumericalAlgebraicGeometry/deflation.m2

@@ -216,7 +216,7 @@ dIdeal (Ideal, ZZ) := (I, d) -> (
      )	   
 deflatedSystem = method()
 deflatedSystem(Ideal, Matrix, ZZ, ZZ) := memoize (
-(I, M, r, attempt) -> (
+(I, M, r, tries) -> (
 -- In: gens I = the original (square) system   
 --     M = deflation matrix
 --     r = numerical rank of M (at some point)

M2/Macaulay2/packages/NumericalAlgebraicGeometry/refine.m2

@@ -426,13 +426,13 @@ refineViaDeflation(Matrix, List) := o->(sysT,solsT) -> (
 		    if DBG > 1 then << "-- performing deflation of order " << dOrder << " at the point " << ls << endl;  
 		    M := dMatrix(ideal T, dOrder);
 		    r := numericalRank sub(M, matrix{ls});
- 		    attempt := 0;
+ 		    tries := 0;
 		    lucky := false;
 		    local new'ls;
-		    while not lucky and attempt < DEFAULT.Attempts do (
-			 (dT,SM) = deflatedSystem(ideal T,M,r,attempt);
+		    while not lucky and tries < DEFAULT.Attempts do (
+			 (dT,SM) = deflatedSystem(ideal T,M,r,tries);
 			 lucky = ((new'ls = liftSolution(ls,dT))=!=null);
-			 attempt = attempt + 1;
+			 tries += 1;
 			 );
 		    ls = new'ls;
 		    s.DeflationSequence = s.DeflationSequence|{dOrder}; 

M2/Macaulay2/packages/SpaceCurves.m2

@@ -249,7 +249,7 @@ curve Divisor := D -> (
 	if class X === CubicSurface then n = 6;
 	if class X === QuarticSurfaceRational then n = 9;
 	if class X === CubicSurface or class X === QuarticSurfaceRational then (
-	    attempt := 0;
+	    tries := 0;
 	    while (
 		--Find a plane curve with given multiplicities at points and its image	    	
 		phi := X.MapToP3;
@@ -263,8 +263,8 @@ curve Divisor := D -> (
                 cplane := ideal (gipts*random(source gipts,S^{-a}));
                	SC := S/cplane;
             	I = ker map(SC,R,phi.matrix);
-		(degree I != degree D) or (genus I != genus D) and attempt<3
-	    ) do (attempt = attempt+1;);
+		(degree I != degree D) or (genus I != genus D) and tries<3
+	    ) do tries += 1;
 	);
         return new Curve from {
 			symbol Divisor => D,