Author: pmichaud Date: Fri Dec 26 10:39:23 2008 New Revision: 34393 Modified: trunk/languages/perl6/src/classes/Range.pir
Log: [rakudo]: Fix regression on Range.reverse, reported by Tene++ . Modified: trunk/languages/perl6/src/classes/Range.pir ============================================================================== --- trunk/languages/perl6/src/classes/Range.pir (original) +++ trunk/languages/perl6/src/classes/Range.pir Fri Dec 26 10:39:23 2008 @@ -202,6 +202,21 @@ .end +=item reverse() + +Generate the range in reverse sequence. (This is wrong for now-- +really what should happen is that we invert .from and .to and +switch the :by argument.) + +=cut + +.namespace ['Range'] +.sub 'reverse' :method + $P0 = self.'list'() + .tailcall $P0.'reverse'() +.end + + =item shift() (vtable_method) Generate the next element at the front of the Range.
