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

Author: jonathan
Date: Wed Jan 21 08:32:21 2009
New Revision: 35868

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

Log:
[rakudo] Roles need to know how to .WHICH (if nothing else so we can recursively parameterize them).

Modified: trunk/languages/perl6/src/classes/Role.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Role.pir	(original)
+++ trunk/languages/perl6/src/classes/Role.pir	Wed Jan 21 08:32:21 2009
@@ -251,6 +251,16 @@
     .return ($P0)
 .end
 
+
+=item WHICH
+
+=cut
+
+.sub 'WHICH' :method
+    $I0 = get_addr self
+    .return ($I0)
+.end
+
 =back
 
 =cut