Author: pmichaud
Date: Tue Dec 9 00:22:45 2008
New Revision: 33702
Modified:
trunk/languages/perl6/src/classes/Positional.pir
Log:
[rakudo]: Add the @a[] slice (slice with no arguments).
Modified: trunk/languages/perl6/src/classes/Positional.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Positional.pir (original)
+++ trunk/languages/perl6/src/classes/Positional.pir Tue Dec 9 00:22:45 2008
@@ -30,6 +30,10 @@
.param pmc args :slurpy
.param pmc options :slurpy :named
.local pmc result
+ if args goto do_index
+ ## return complete invocant as a list
+ .tailcall self.'list'()
+ do_index:
args.'!flatten'()
$I0 = args.'elems'()
if $I0 != 1 goto slice
