Author: pmichaud
Date: Fri Nov 7 09:25:22 2008
New Revision: 32431
Modified:
branches/rakon/languages/perl6/src/classes/IO.pir
Log:
[rakudo]: Add '!VALUE' method to IOIterator .
Modified: branches/rakon/languages/perl6/src/classes/IO.pir
==============================================================================
--- branches/rakon/languages/perl6/src/classes/IO.pir (original)
+++ branches/rakon/languages/perl6/src/classes/IO.pir Fri Nov 7 09:25:22 2008
@@ -180,6 +180,10 @@
.return(1)
.end
+.sub '!VALUE' :method
+ .tailcall self.'item'()
+.end
+
.sub 'item' :method :vtable('shift_pmc')
.local pmc pio
$P0 = getattribute self, "$!IO"
