Compile flattening in regex subrule arg lists.

Raku · Oct 6, 2015 · caf4c0f · caf4c0f
1 parent 5d01ca3
commit caf4c0f
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/vm/moar/QAST/QASTRegexCompilerMAST.nqp b/src/vm/moar/QAST/QASTRegexCompilerMAST.nqp
@@ -1056,6 +1056,12 @@ class QAST::MASTRegexCompiler {
             my $kind := $mast.result_kind;
             nqp::push(@result_kinds, $kind);
             my $flag := @kind_to_args[$kind];
+            if $_.flat {
+                $flag := $flag +| ($_.named ?? $Arg::flatnamed !! $Arg::flat);
+            }
+            elsif $_.named {
+                nqp::die('Named args in regex subrule calls NYI');
+            }
             nqp::push(@flags, $flag);
         }
         [@masts, @results, @result_kinds, @flags]