add ...

perl6 · Jan 4, 2011 · 89a7459 · 89a7459
1 parent 01081a8
commit 89a7459
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 0 deletions.
diff --git a/src/NQP/Actions.pm b/src/NQP/Actions.pm
@@ -311,6 +311,10 @@ method term:sym<regex_declarator>($/)   { make $<regex_declarator>.ast; }
 method term:sym<statement_prefix>($/)   { make $<statement_prefix>.ast; }
 method term:sym<lambda>($/)             { make $<pblock>.ast; }
 
+method term:sym<...>($/) {
+    make PAST::Op.new( :pirop('die'), 'Stub code executed', :node($/) );
+}
+
 method fatarrow($/) {
     my $past := $<val>.ast;
     $past.named( $<key>.Str );

diff --git a/src/NQP/Grammar.pm b/src/NQP/Grammar.pm
@@ -232,6 +232,7 @@ token term:sym<multi_declarator>   { <?before 'multi'|'proto'|'only'> <multi_dec
 token term:sym<regex_declarator>   { <regex_declarator> }
 token term:sym<statement_prefix>   { <statement_prefix> }
 token term:sym<lambda>             { <?lambda> <pblock> }
+token term:sym<...>                { <sym> <args>? }
 
 token fatarrow {
     <key=.identifier> \h* '=>' <.ws> <val=.EXPR('i=')>