parse: Support NamedTuple construction

Author: jpsamaroo

src/thunk.jl

@@ -362,6 +362,8 @@ function replace_broadcast(fn::Symbol)
     return fn
 end
 
+to_namedtuple(;kwargs...) = (;kwargs...)
+
 function _par(ex::Expr; lazy=true, recur=true, opts=())
     f = nothing
     body = nothing
@@ -371,7 +373,8 @@ function _par(ex::Expr; lazy=true, recur=true, opts=())
                 @capture(ex, f_(allargs__) do cargs_ body_ end) ||
                 @capture(ex, allargs__->body_) ||
                 @capture(ex, arg1_[allargs__]) ||
-                @capture(ex, arg1_.arg2_)
+                @capture(ex, arg1_.arg2_) ||
+                @capture(ex, (;allargs__))
         f = replace_broadcast(f)
         if arg1 !== nothing
             if arg2 !== nothing
@@ -384,6 +387,10 @@ function _par(ex::Expr; lazy=true, recur=true, opts=())
                 pushfirst!(allargs, arg1)
             end
         end
+        if f === nothing && body === nothing
+            # NamedTuple ((;a=1, b=2))
+            f = to_namedtuple
+        end
         args = filter(arg->!Meta.isexpr(arg, :parameters), allargs)
         kwargs = filter(arg->Meta.isexpr(arg, :parameters), allargs)
         if !isempty(kwargs)

test/thunk.jl

@@ -129,7 +129,7 @@ end
         @test t isa Dagger.DTask
         @test fetch(t) == A[2]
 
-        B = Dagger.@spawn rand(4, 4)
+        B = @spawn rand(4, 4)
         t = @spawn B[1, 2]
         @test t isa Dagger.DTask
         @test fetch(t) == fetch(B)[1, 2]
@@ -139,12 +139,26 @@ end
         @test t isa Dagger.DTask
         @test fetch(t) == 42
     end
+    @testset "NamedTuple" begin
+        t = @spawn (;a=1, b=2)
+        @test t isa Dagger.DTask
+        @test fetch(t) == (;a=1, b=2)
+
+        t = @spawn (;)
+        @test t isa Dagger.DTask
+        @test fetch(t) == (;)
+    end
     @testset "getproperty" begin
         nt = (;a=1, b=2)
 
         t = @spawn nt.b
         @test t isa Dagger.DTask
         @test fetch(t) == nt.b
+
+        nt2 = @spawn (;a=1, b=3)
+        t = @spawn nt2.b
+        @test t isa Dagger.DTask
+        @test fetch(t) == fetch(nt2).b
     end
     @testset "invalid expression" begin
         @test_throws LoadError eval(:(@spawn 1))