More edge cases

Author: YingboMa

src/systems/abstractsystem.jl

@@ -454,7 +454,7 @@ function _named(expr)
 
     kws = call.args[2].args
 
-    if !any(kw->kw.args[1] == :name, kws) # don't overwrite `name` kwarg
+    if !any(kw->(kw isa Symbol ? kw : kw.args[1]) == :name, kws) # don't overwrite `name` kwarg
         push!(kws, Expr(:kw, :name, Meta.quot(name)))
     end
     :($name = $call)

test/direct.jl

@@ -228,3 +228,20 @@ pp = :name => :cool_name
 @named cool_name = foo(42; name = 3)
 @test cool_name[1] == (42,)
 @test collect(cool_name[2]) == [:name => 3]
+
+if VERSION >= v"1.5"
+    name = 3
+    @named cool_name = foo(42; name)
+    @test cool_name[1] == (42,)
+    @test collect(cool_name[2]) == [:name => name]
+    @named cool_name = foo(; name)
+    @test collect(cool_name) == [:name => name]
+
+    ff = 3
+    @named cool_name = foo(42; ff)
+    @test cool_name[1] == (42,)
+    @test collect(cool_name[2]) == [:ff => ff; pp]
+
+    @named cool_name = foo(;ff)
+    @test collect(cool_name) == [:ff => ff; pp]
+end