Implement :flat :named (|%hash)

src/NQP/Actions.pm

@@ -614,6 +614,10 @@ method arglist($/) {
         if $past[$i].name eq '&prefix:<|>' {
             $past[$i] := $past[$i][0];
             $past[$i].flat(1);
+            if $past[$i].isa(PAST::Val)
+                && pir::substr($past[$i].name, 0, 1) eq '%' {
+                    $past[$i].named(1);
+            }
         }
         $i++;
     }

t/nqp/41-flat.t

@@ -2,14 +2,25 @@
 
 # flattened arguments
 
-plan(3);
+plan(6);
 
 sub xyz($x, $y, $z) {
     ok( $x == 7, 'first argument');
     ok( $y == 8, 'second argument');
     ok( $z == 9, 'third argument');
 }
 
+sub ijk(:$i, :$j, :$k) {
+    ok( $i == 1, 'first named argument');
+    ok( $j == 2, 'second named argument');
+    ok( $k == 3, 'third named argument');
+}
+
 my @a := [7,8,9];
 xyz(|@a);
 
+my %a;
+%a<i> := 1;
+%a<j> := 2;
+%a<k> := 3;
+ijk(|%a);