Author: pmichaud
Date: Tue Dec 23 17:12:36 2008
New Revision: 34305
Modified:
trunk/languages/perl6/src/builtins/control.pir
Log:
[rakudo]: Merge 'last' and 'redo' functions from pctloop2 branch.
Modified: trunk/languages/perl6/src/builtins/control.pir
==============================================================================
--- trunk/languages/perl6/src/builtins/control.pir (original)
+++ trunk/languages/perl6/src/builtins/control.pir Tue Dec 23 17:12:36 2008
@@ -118,6 +118,14 @@
=cut
+.sub 'last'
+ .local pmc e
+ e = new 'Exception'
+ e['severity'] = .EXCEPT_NORMAL
+ e['type'] = .CONTROL_LOOP_LAST
+ throw e
+.end
+
.sub 'next'
.local pmc e
e = new 'Exception'
@@ -126,6 +134,14 @@
throw e
.end
+.sub 'redo'
+ .local pmc e
+ e = new 'Exception'
+ e['severity'] = .EXCEPT_NORMAL
+ e['type'] = .CONTROL_LOOP_REDO
+ throw e
+.end
+
.sub 'continue'
.local pmc e
e = new 'Exception'
