Typecheck Attribute's build attribute against Code

Attrbiute `build` of `Attrbiute` class can not only be set to a method but to any kind of generic code. This fixes a breakage in `Red` ORM.
rakudo · Jan 29, 2020 · a8bb85a · a8bb85a
1 parent b777d6f
commit a8bb85a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Perl6/Metamodel/BUILDPLAN.nqp b/src/Perl6/Metamodel/BUILDPLAN.nqp
@@ -133,7 +133,7 @@ role Perl6::Metamodel::BUILDPLAN {
 
                 # compile check constants for correct type
                 if nqp::isconcrete($default) {
-                    if $default.HOW.name($default) eq 'Method' {
+                    if nqp::istype($default, $*W.find_symbol(["Code"])) {
                         # cannot typecheck code to be run later
                     }
                     elsif $primspec {