catch => "quit", NYI for quit blocks

rakudo · Nov 21, 2013 · c3c3e54 · c3c3e54
1 parent 2622c63
commit c3c3e54
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -1295,6 +1295,10 @@ class Perl6::Actions is HLL::Actions does STDActions {
         $*W.throw($/, ['X', 'NYI'], feature => 'combine blocks');
     }
 
+    method statement_control:sym<quit>($/) {
+        $*W.throw($/, ['X', 'NYI'], feature => 'combine blocks (and "quit")');
+    }
+
     method statement_control:sym<CATCH>($/) {
         if nqp::existskey(%*HANDLERS, 'CATCH') {
             $*W.throw($/, ['X', 'Phaser', 'Multiple'], block => 'CATCH');

diff --git a/src/Perl6/Grammar.nqp b/src/Perl6/Grammar.nqp
@@ -2100,7 +2100,7 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
     rule term:sym<combine>{ <sym><.end_keyword> <xblock> }
     rule statement_control:sym<more>   { <sym><.end_keyword> <xblock(1)> }
     rule statement_control:sym<done>   { <sym><.end_keyword> <xblock(1)> }
-    rule statement_control:sym<catch>  { <sym><.end_keyword> <xblock(1)> }
+    rule statement_control:sym<quit>   { <sym><.end_keyword> <xblock(1)> }
     rule statement_control:sym<wait>   { <sym><.end_keyword> <xblock(1)> }
 
     proto token multi_declarator { <...> }