From 2b9ff18a710b95d362d7aaadf4d436d5a9ce9fb0 Mon Sep 17 00:00:00 2001 From: Devlin Date: Wed, 28 Aug 2024 11:03:38 -0700 Subject: [PATCH] added caching of base in toricBlowup in all cases --- .../packages/NormalToricVarieties/ToricVarieties.m2 | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/M2/Macaulay2/packages/NormalToricVarieties/ToricVarieties.m2 b/M2/Macaulay2/packages/NormalToricVarieties/ToricVarieties.m2 index c3372c9ef6..6822e74751 100644 --- a/M2/Macaulay2/packages/NormalToricVarieties/ToricVarieties.m2 +++ b/M2/Macaulay2/packages/NormalToricVarieties/ToricVarieties.m2 @@ -693,13 +693,15 @@ 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', CoefficientRing => X.cache.CoefficientRing, Variable => X.cache.Variable) + Z := normalToricVariety (rays X, coneList | coneList', CoefficientRing => X.cache.CoefficientRing, Variable => X.cache.Variable); + Z.cache.toricBlowup = X; + return Z ); 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, Variable => X.cache.Variable); + Z = normalToricVariety (rays X | {v}, coneList | coneList', CoefficientRing => X.cache.CoefficientRing, Variable => X.cache.Variable); Z.cache.toricBlowup = X; Z );