Author: jonathan
Date: Tue Dec 9 15:10:11 2008
New Revision: 33734
Modified:
trunk/languages/perl6/src/classes/List.pir
Log:
[rakudo] infix:X ended up giving a result that flattened, which meant we got
wrong results.
Modified: trunk/languages/perl6/src/classes/List.pir
==============================================================================
--- trunk/languages/perl6/src/classes/List.pir (original)
+++ trunk/languages/perl6/src/classes/List.pir Tue Dec 9 15:10:11 2008
@@ -774,7 +774,7 @@
# Start out by building list at current counters.
.local pmc new_list
- new_list = new 'List'
+ new_list = new 'Perl6Array'
i = 0
cur_perm_loop:
if i >= num_args goto cur_perm_loop_end
@@ -785,6 +785,7 @@
inc i
goto cur_perm_loop
cur_perm_loop_end:
+ new_list = new 'ObjectRef', new_list
res[res_count] = new_list
inc res_count
