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
