Correct dispatcher test in multi incorporation.

jnthn · jnthn · commit a4b32bb8b5e6 · 2012-02-21T12:58:43.000+01:00
diff --git a/src/how/NQPClassHOW.pm b/src/how/NQPClassHOW.pm
@@ -210,7 +210,7 @@ knowhow NQPClassHOW {
                 if pir::is_dispatcher__IP($dispatcher) {
                     pir::push_dispatchee__0PP($dispatcher, $code);
                 }
-                elsif pir::can($dispatcher, 'add_dispatchee') {
+                elsif pir::can($dispatcher, 'is_dispatcher') && $dispatcher.is_dispatcher {
                     $dispatcher.add_dispatchee($code);
                 }
                 else {

Original file line number	Diff line number	Diff line change
`@@ -210,7 +210,7 @@ knowhow NQPClassHOW {`
`210`	`210`	`if pir::is_dispatcher__IP($dispatcher) {`
`211`	`211`	`pir::push_dispatchee__0PP($dispatcher, $code);`
`212`	`212`	`}`
`213`		`- elsif pir::can($dispatcher, 'add_dispatchee') {`
	`213`	`+ elsif pir::can($dispatcher, 'is_dispatcher') && $dispatcher.is_dispatcher {`
`214`	`214`	`$dispatcher.add_dispatchee($code);`
`215`	`215`	`}`
`216`	`216`	`else {`