Author: pmichaud
Date: Tue Dec 23 16:37:19 2008
New Revision: 34303
Modified:
branches/pctloop2/languages/perl6/src/builtins/control.pir
Log:
[rakudo]: Add simple 'last' and 'redo' functions.
Modified: branches/pctloop2/languages/perl6/src/builtins/control.pir
==============================================================================
--- branches/pctloop2/languages/perl6/src/builtins/control.pir (original)
+++ branches/pctloop2/languages/perl6/src/builtins/control.pir Tue Dec 23
16:37:19 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'
