Add statement_prefix:sym<sink>.

rakudo · Jun 26, 2010 · 2334011 · 2334011
1 parent d401972
commit 2334011
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 0 deletions.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -547,6 +547,16 @@ method statement_prefix:sym<gather>($/) {
     make PAST::Op.new( :pasttype('call'), :name('!GATHER'), $past );
 }
 
+method statement_prefix:sym<sink>($/) {
+    my $blast := $<blorst>.ast;
+    $blast.blocktype('immediate');
+    make PAST::Stmts.new(
+        PAST::Op.new( :name('&eager'), $blast ),
+        PAST::Op.new( :name('&Nil') ),
+        :node($/)
+    );
+}
+
 method statement_prefix:sym<try>($/) {
     my $block := $<blorst>.ast;
     $block.blocktype('immediate');

diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -478,6 +478,7 @@ token statement_prefix:sym<BEGIN> { <sym> <blorst> }
 token statement_prefix:sym<CHECK> { <sym> <blorst> }
 token statement_prefix:sym<INIT>  { <sym> <blorst> }
 token statement_prefix:sym<END>   { <sym> <blorst> }
+token statement_prefix:sym<sink>  { <sym> <blorst> }
 token statement_prefix:sym<try>   { <sym> <blorst> }
 token statement_prefix:sym<gather>{ <sym> <blorst> }
 token statement_prefix:sym<do>    { <sym> <blorst> }