[svn:parrot] r35836 - trunk/languages/perl6/src/builtins

Author: jonathan
Date: Tue Jan 20 10:57:27 2009
New Revision: 35836

Modified:
   trunk/languages/perl6/src/builtins/guts.pir

Log:
[rakudo] Final fix needed to get a proto in the class to avoid conflicts with methods of the same name in roles (by bringing them into the multi).

Modified: trunk/languages/perl6/src/builtins/guts.pir
==============================================================================
--- trunk/languages/perl6/src/builtins/guts.pir	(original)
+++ trunk/languages/perl6/src/builtins/guts.pir	Tue Jan 20 10:57:27 2009
@@ -755,6 +755,9 @@
   it_loop:
     unless it goto it_loop_end
     $S0 = shift it
+    $P0 = meths[$S0]
+    $I0 = isa $P0, 'MultiSub'
+    if $I0 goto it_loop
     push res_list, $S0
     goto it_loop
   it_loop_end: