Author: jonathan
Date: Wed Aug 20 16:00:40 2008
New Revision: 30410
Modified:
branches/lazyrakudo/languages/perl6/src/builtins/any-list.pir
Log:
[rakudo] Get reverse test to pass again.
Modified: branches/lazyrakudo/languages/perl6/src/builtins/any-list.pir
==============================================================================
--- branches/lazyrakudo/languages/perl6/src/builtins/any-list.pir
(original)
+++ branches/lazyrakudo/languages/perl6/src/builtins/any-list.pir Wed Aug
20 16:00:40 2008
@@ -63,7 +63,6 @@
sep = ' '
have_sep:
$P0 = self.'list'()
- $P0.'!flatten'()
$S0 = join sep, $P0
.return ($S0)
.end
@@ -250,7 +249,7 @@
.namespace ['Any']
.sub 'reverse' :method :multi(_)
.local pmc result, it
- result = new 'List'
+ result = new 'ResizablePMCArray'
$P0 = self.'list'()
it = $P0.'iterator'()
loop:
@@ -259,12 +258,15 @@
unshift result, $P0
goto loop
done:
+ $P0 = get_hll_global 'list'
+ result = $P0(result)
.return (result)
.end
.namespace []
.sub 'reverse' :multi()
.param pmc values :slurpy
+ values = 'list'(values)
.return values.'reverse'()
.end
