Author: pmichaud
Date: Wed Nov 26 21:01:38 2008
New Revision: 33257
Modified:
trunk/languages/perl6/src/classes/Range.pir
Log:
[rakudo]: Fix [EMAIL PROTECTED] semantics, RT #60828.
Modified: trunk/languages/perl6/src/classes/Range.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Range.pir (original)
+++ trunk/languages/perl6/src/classes/Range.pir Wed Nov 26 21:01:38 2008
@@ -332,7 +332,7 @@
.namespace[]
.sub 'prefix:^' :multi(_)
- .param pmc to
+ .param num to
.tailcall 'infix:..^'(0, to)
.end
@@ -347,29 +347,6 @@
.tailcall proto.'HOW'()
.end
-=item prefix:<^>(List @a)
-
-=cut
-
-.sub 'prefix:^' :multi('ResizablePMCArray')
- .param pmc list
-
- # Iterate over the list and and create a list of Ranges
- .local pmc ranges, it
- ranges = 'list'()
- it = list.'iterator'()
- iter_loop:
- unless it goto iter_loop_end
- $P0 = shift it
- $P0 = 'infix:..^'(0, $P0)
- push ranges, $P0
- goto iter_loop
- iter_loop_end:
-
- # Now just use cross operator to make all the permutations.
- .tailcall 'infix:X'(ranges)
-.end
-
=back
=head2 Private methods
