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

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

From:
pmichaud
Date:
December 12, 2008 08:09
Subject:
[svn:parrot] r33834 - trunk/languages/perl6/src/classes
Message ID:
20081212160935.36D89CB9AF@x12.develooper.com
Author: pmichaud
Date: Fri Dec 12 08:09:34 2008
New Revision: 33834

Modified:
   trunk/languages/perl6/src/classes/Mapping.pir

Log:
[rakudo]:  Fix .list method on Mapping and Hash.


Modified: trunk/languages/perl6/src/classes/Mapping.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Mapping.pir	(original)
+++ trunk/languages/perl6/src/classes/Mapping.pir	Fri Dec 12 08:09:34 2008
@@ -89,6 +89,17 @@
 .end
 
 
+=item list()
+
+Return invocant as a List of Pairs.
+
+=cut
+
+.sub 'list' :method
+    .tailcall self.'pairs'()
+.end
+
+
 =item perl()
 
 Return perl representation of the invocant.
@@ -151,7 +162,8 @@
     .local pmc it
     .local pmc rv
     it = iter self
-    rv   = 'list'()
+    $P0 = get_hll_global 'list'
+    rv  = $P0()
     $P3 = get_hll_global 'Perl6Pair'
   loop:
     unless it goto end



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