develooper Front page | perl.cvs.parrot | Postings from November 2008

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

From:
pmichaud
Date:
November 13, 2008 00:19
Subject:
[svn:parrot] r32598 - trunk/languages/perl6/src/classes
Message ID:
20081113081917.BD60FCB9AF@x12.develooper.com
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



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About