Author: pmichaud
Date: Mon Dec 8 19:02:38 2008
New Revision: 33685
Modified:
branches/assign/languages/perl6/src/classes/Object.pir
Log:
[rakudo]: Restore 'item' contextualizer listop.
Modified: branches/assign/languages/perl6/src/classes/Object.pir
==============================================================================
--- branches/assign/languages/perl6/src/classes/Object.pir (original)
+++ branches/assign/languages/perl6/src/classes/Object.pir Mon Dec 8
19:02:38 2008
@@ -64,6 +64,21 @@
.return (self)
.end
+.namespace []
+.sub 'item'
+ .param pmc x :slurpy
+ $I0 = elements x
+ unless $I0 == 1 goto have_x
+ x = shift x
+ have_x:
+ $I0 = can x, 'item'
+ unless $I0 goto have_item
+ x = x.'item'()
+ have_item:
+ .return (x)
+.end
+
+
=item list
Return invocant in list context. Default is to return a List containing self.
