Author: tene
Date: Tue Jul 29 10:49:39 2008
New Revision: 29852
Modified:
trunk/languages/cardinal/src/classes/Object.pir
Log:
[cardinal]
* Track a change in P6Object for calling methods on the metaclass.
Modified: trunk/languages/cardinal/src/classes/Object.pir
==============================================================================
--- trunk/languages/cardinal/src/classes/Object.pir (original)
+++ trunk/languages/cardinal/src/classes/Object.pir Tue Jul 29 10:49:39 2008
@@ -140,7 +140,7 @@
$P0 = cardinalmeta.get_parrotclass(self)
$P1 = $P0.'new'()
$P2 = $P1.'HOW'()
- $I0 = $P2.can('initialize')
+ $I0 = $P2.can(self,'initialize')
unless $I0, no_initialize
$P2 = $P1.'initialize'(args :flat, named_args :named :flat)
no_initialize:
