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

Author: pmichaud
Date: Wed Dec 24 14:21:45 2008
New Revision: 34342

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

Log:
[rakudo]:  Fix $x.map to work as list of 1 element.


Modified: trunk/languages/perl6/src/classes/Object.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Object.pir	(original)
+++ trunk/languages/perl6/src/classes/Object.pir	Wed Dec 24 14:21:45 2008
@@ -124,6 +124,17 @@
 .end
 
 
+=item iterator
+
+=cut
+
+.namespace ['Perl6Object']
+.sub 'iterator' :method
+    $P0 = self.'list'()
+    .tailcall $P0.'iterator'()
+.end
+
+
 =item list
 
 Return invocant in list context.  Default is to return a List containing self.

• [svn:parrot] r34342 - trunk/languages/perl6/src/classes by pmichaud