Allow all types of list on the RHS of parallel assignment

Author: d-torrance

M2/Macaulay2/d/evaluate.d

@@ -1206,8 +1206,16 @@ parallelAssignmentFun(x:parallelAssignmentCode):Expr := (
 	when value is a:Sequence do (
 	    -- unless y is a sequence of length 1, then it behaves like x = y#0
 	    if length(a) == 1 then nothing
-	    else value = ParallelAssignmentError(1))
+	    else return ParallelAssignmentError(1))
+	is a:List do (
+	    if length(a.v) == 1 then nothing
+	    else return ParallelAssignmentError(1))
 	else value = seq(value));
+    klass := sequenceClass;
+    when value is a:List do (
+	value = Expr(a.v);
+	klass = a.Class)
+    else nothing;
     when value
     is values:Sequence do (
 	if nlhs == length(values) then (
@@ -1280,7 +1288,10 @@ parallelAssignmentFun(x:parallelAssignmentCode):Expr := (
 		    else r));
 	    when e
 	    is Error do e
-	    else if nlhs == 1 then result.0 else Expr(result))
+	    else if nlhs == 1 then result.0
+	    else (
+		if klass == sequenceClass then Expr(result)
+		else list(klass, result)))
 	else ParallelAssignmentError(nlhs))
     else ParallelAssignmentError(nlhs));
 

M2/Macaulay2/tests/normal/parallel.m2

@@ -112,6 +112,16 @@ assert Equation(()  = (), ())
 assert Equation(() := (), ())
 assert Equation(() += (), ())
 
+-- other types of list on RHS
+assert Equation((x, y, z) = {1, 2, 3}, {1, 2, 3})
+assert Equation((x, y, z), (1, 2, 3))
+assert Equation((x, y, z) = [4, 5, 6], [4, 5, 6])
+assert Equation((x, y, z), (4, 5, 6))
+assert Equation((x, y, z) = <|7, 8, 9|>, <|7, 8, 9|>)
+assert Equation((x, y, z), (7, 8, 9))
+assert Equation((x) = {10}, 10)
+assert Equation(x, 10)
+
 end
 -- Local Variables:
 -- compile-command: "make -C $M2BUILDDIR/Macaulay2/packages/Macaulay2Doc/test parallel.out"