From 3ca17a5b54d1ede11293e6c17b17025ccdf0760d Mon Sep 17 00:00:00 2001 From: Doug Torrance Date: Tue, 17 Dec 2024 14:30:46 -0500 Subject: [PATCH] Use current code position when making binaryCode in aug. assignment --- M2/Macaulay2/d/evaluate.d | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/M2/Macaulay2/d/evaluate.d b/M2/Macaulay2/d/evaluate.d index b267e6d1b0..29bb86293f 100644 --- a/M2/Macaulay2/d/evaluate.d +++ b/M2/Macaulay2/d/evaluate.d @@ -1296,17 +1296,17 @@ augmentedAssignmentFun(x:augmentedAssignmentCode):Expr := ( when r is e:Error do r else globalAssignment(y.frameindex, x.info, r)) is y:binaryCode do ( - r := Code(binaryCode(s.binary, Code(left), x.rhs, dummyPosition)); + r := Code(binaryCode(s.binary, Code(left), x.rhs, x.position)); if y.f == DotS.symbol.binary || y.f == SharpS.symbol.binary then AssignElemFun(y.lhs, y.rhs, r) else InstallValueFun(CodeSequence( convertGlobalOperator(x.info), y.lhs, y.rhs, r))) is y:adjacentCode do ( - r := Code(binaryCode(s.binary, Code(left), x.rhs, dummyPosition)); + r := Code(binaryCode(s.binary, Code(left), x.rhs, x.position)); InstallValueFun(CodeSequence( convertGlobalOperator(AdjacentS.symbol), y.lhs, y.rhs, r))) is y:unaryCode do ( - r := Code(binaryCode(s.binary, Code(left), x.rhs, dummyPosition)); + r := Code(binaryCode(s.binary, Code(left), x.rhs, x.position)); UnaryInstallValueFun(convertGlobalOperator(x.info), y.rhs, r)) else buildErrorPacket( "augmented assignment not implemented for this code")));