develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r33734 - trunk/languages/perl6/src/classes

From:
jonathan
Date:
December 9, 2008 15:10
Subject:
[svn:parrot] r33734 - trunk/languages/perl6/src/classes
Message ID:
20081209231011.DB2F6CB9AF@x12.develooper.com
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
 



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About