move is_dispatcher from Code to Routine

it did not work in Code anyway, because it uses an attribute from Routine
rakudo · Sep 22, 2012 · cfd5e72 · cfd5e72
1 parent b72c434
commit cfd5e72
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Perl6/Metamodel/BOOTSTRAP.pm b/src/Perl6/Metamodel/BOOTSTRAP.pm
@@ -572,7 +572,7 @@ BEGIN {
     Routine.HOW.add_attribute(Routine, BOOTSTRAPATTR.new(:name<$!package>, :type(Mu), :package(Routine)));
     Routine.HOW.add_attribute(Routine, BOOTSTRAPATTR.new(:name<$!onlystar>, :type(int), :package(Routine)));
 
-    Code.HOW.add_method(Code, 'is_dispatcher', static(sub ($self) {
+    Routine.HOW.add_method(Routine, 'is_dispatcher', static(sub ($self) {
             my $dc_self   := pir::perl6_decontainerize__PP($self);
             my $disp_list := nqp::getattr($dc_self, Routine, '$!dispatchees');
             pir::perl6_booleanize__PI(nqp::defined($disp_list));