From f7ad5dcf196a0d399a5ef1c5160131da5ed27a73 Mon Sep 17 00:00:00 2001 From: Jonathan Scott Duff Date: Mon, 4 Jan 2010 16:05:57 -0600 Subject: [PATCH] rename break/continue to succeed/proceed --- src/Perl6/Actions.pm | 2 +- src/builtins/control.pir | 8 ++++---- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm index 7457a4d7cfa..874431da806 100644 --- a/src/Perl6/Actions.pm +++ b/src/Perl6/Actions.pm @@ -1800,7 +1800,7 @@ sub when_handler_helper($block) { $block.push( PAST::Op.new( :pasttype('call'), - :name('&break'), + :name('&succeed'), $last ) ); diff --git a/src/builtins/control.pir b/src/builtins/control.pir index e98746bd947..4a7132dcf81 100644 --- a/src/builtins/control.pir +++ b/src/builtins/control.pir @@ -69,11 +69,11 @@ src/builtins/control.pir - control flow related functions throw ex .end -=item continue +=item proceed =cut -.sub '&continue' +.sub '&proceed' .local pmc ex, p6ex ex = root_new ['parrot';'Exception'] ex['severity'] = .EXCEPT_NORMAL @@ -84,11 +84,11 @@ src/builtins/control.pir - control flow related functions throw ex .end -=item break +=item succeed =cut -.sub '&break' +.sub '&succeed' .param pmc arg :optional .param int has_arg :opt_flag .local pmc e, p6ex