From 5d9109bce8e76c40a13ca8e7c437112bba58abb1 Mon Sep 17 00:00:00 2001 From: pzinn Date: Mon, 23 Sep 2024 22:43:28 +1000 Subject: [PATCH] promote in selectVariables --- M2/Macaulay2/m2/polyrings.m2 | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/M2/Macaulay2/m2/polyrings.m2 b/M2/Macaulay2/m2/polyrings.m2 index 7b88273987..d1052d326d 100644 --- a/M2/Macaulay2/m2/polyrings.m2 +++ b/M2/Macaulay2/m2/polyrings.m2 @@ -274,7 +274,10 @@ selectVariables(List,PolynomialRing) := (v,R) -> ( o.Variables = o.Variables_v; o.Degrees = o.Degrees_v; o = new OptionTable from o; - (S := (coefficientRing R)(monoid [o]),map(R,S,(generators R)_v))) + S := (coefficientRing R)(monoid [o]); + f := map(R,S,(generators R)_v); + promoteFromMap f; + (S,f)) -----------------------------------------------------------------------------