Author: pmichaud
Date: Thu Nov 13 00:19:16 2008
New Revision: 32598
Modified:
trunk/languages/perl6/src/classes/Object.pir
Log:
[rakudo]: Change .PARROTCLASS to .PARROT, so we can add more information.
Modified: trunk/languages/perl6/src/classes/Object.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Object.pir (original)
+++ trunk/languages/perl6/src/classes/Object.pir Thu Nov 13 00:19:16 2008
@@ -421,20 +421,20 @@
.tailcall self.'WHERE'()
.end
-=item 'PARROTCLASS'
+=item 'PARROT'
Report the object's true nature.
=cut
-.sub 'PARROTCLASS' :method
+.sub 'PARROT' :method
.local pmc obj
.local string result
obj = self
result = ''
$I0 = isa obj, 'ObjectRef'
unless $I0 goto have_obj
- result = 'ObjectRef -> '
+ result = 'ObjectRef->'
obj = deref obj
have_obj:
$P0 = typeof obj
