all instances of normalToricVariety now have CoefficientRing

Macaulay2 · Aug 29, 2024 · 57446be · 57446be
1 parent 0f6ae45
commit 57446be
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/M2/Macaulay2/packages/NormalToricVarieties/ToricVarieties.m2 b/M2/Macaulay2/packages/NormalToricVarieties/ToricVarieties.m2
@@ -630,7 +630,7 @@ regularSubdivisionLocal (NormalToricVariety, List, List) := (X,s,w) -> (
 	    coneList = drop (coneList,{k,k}) | coneList') 
 	);
     if coneList == max X then return X;
-    Y := normalToricVariety (rayList, coneList);
+    Y := normalToricVariety (rayList, coneList, CoefficientRing => X.cache.CoefficientRing, Variable => X.cache.Variable);
     Y.cache.Weights = apply (#rayList, i -> wtg i);
     Y 
     );    
@@ -693,13 +693,13 @@ toricBlowup (List, NormalToricVariety, List) := NormalToricVariety => (s, X, v)
       	    if member (s#0,t) then continue
       	    else sort (t | s)
 	    );
-    	return normalToricVariety (rays X, coneList | coneList') 
+	return normalToricVariety (rays X, coneList | coneList', CoefficientRing => X.cache.CoefficientRing, Variable => X.cache.Variable)
 	);
     coneList' = for t in clStar list (
 	if all (s, i -> member (i,t)) then continue
 	else t | {n}
 	);
-    Z := normalToricVariety (rays X | {v}, coneList | coneList', CoefficientRing => X.cache.CoefficientRing);
+    Z := normalToricVariety (rays X | {v}, coneList | coneList', CoefficientRing => X.cache.CoefficientRing, Variable => X.cache.Variable);
     Z.cache.toricBlowup = X;
     Z
     );