Allow all types of list on the RHS of parallel assignment

Author: d-torrance

M2/Macaulay2/d/evaluate.d

@@ -1206,8 +1206,12 @@ 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));
+    when value is a:List do value = Expr(a.v) else nothing;
     when value
     is values:Sequence do (
 	if nlhs == length(values) then (

M2/Macaulay2/tests/normal/parallel.m2

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