Return vcat of all named objects

Author: YingboMa

src/systems/abstractsystem.jl

@@ -958,10 +958,13 @@ end
 function named_expr(expr)
     if Meta.isexpr(expr, :block)
         newexpr = Expr(:block)
+        names = Expr(:vcat)
         for ex in expr.args
             ex isa LineNumberNode && continue
             push!(newexpr.args, single_named_expr(ex))
+            push!(names.args, ex.args[1])
         end
+        push!(newexpr.args, names)
         newexpr
     else
         single_named_expr(expr)
@@ -979,7 +982,7 @@ end
     @named begin
         y[1:10] = foo(x)
         z = foo(x)
-    end
+    end # returns `[y; z]`
     @named y 1:10 i -> foo(x*i)  # This is not recommended
 
 Pass the LHS name to the model. When it's calling anything that's not an

test/direct.jl

@@ -257,9 +257,10 @@ foo(i; name) = (; i, name)
 @test isequal(goo, [(i = 10, name = Symbol(:goo_, i)) for i in 1:3])
 @named koo 1:3 i->foo(10i)
 @test isequal(koo, [(i = 10i, name = Symbol(:koo_, i)) for i in 1:3])
-@named begin
+xys = @named begin
     x = foo(12)
     y[1:3] = foo(13)
 end
 @test isequal(x, (i = 12, name = :x))
 @test isequal(y, [(i = 13, name = Symbol(:y_, i)) for i in 1:3])
+@test isequal(xys, [x; y])