fix concat_atoms ?

With this, we can at least compile the second sub in lib/test_more.tcl

Author: coke

src/Partcl/Actions.pm

@@ -279,7 +279,7 @@ class Partcl::Actions is HLL::Actions {
         if $lastlit gt '' { @parts.push($lastlit); }
         my $past := @parts ?? @parts.shift !! '';
         while @parts {
-            $past := QAST::Op.new( :op<call>, $past, @parts.shift, :name<concat>);
+            $past := QAST::Op.new( :op<concat>, $past, @parts.shift);
         }
         $past;
     }