Author: pmichaud
Date: Wed Feb 20 22:13:22 2008
New Revision: 25922

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

Log:
[perl6]:
* .say method should redispatch to say() function. instead of
  printing directly.


Modified: trunk/languages/perl6/src/classes/Object.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Object.pir        (original)
+++ trunk/languages/perl6/src/classes/Object.pir        Wed Feb 20 22:13:22 2008
@@ -328,10 +328,8 @@
 =cut
 
 .sub 'say' :method
-    .local pmc item
-    item = self
-    print item
-    print "\n"
+    $P0 = get_hll_global 'say'
+    .return $P0(self)
 .end
 
 =back

Reply via email to