Fix compiler thunk checking.

rakudo · Mar 13, 2013 · 136dc0b · 136dc0b
1 parent 4c470a1
commit 136dc0b
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Perl6/Metamodel/BOOTSTRAP.pm b/src/Perl6/Metamodel/BOOTSTRAP.pm
@@ -979,7 +979,8 @@ BEGIN {
                             # Otherwise, may need full bind check.
                             if %info<bind_check> {
                                 my $sub := %info<sub>;
-                                my $ctf := pir::getprop__PsP("COMPILER_THUNK", $sub);
+                                my $ctf := pir::getprop__PsP("COMPILER_THUNK",
+                                    nqp::getattr($sub, Code, '$!do'));
                                 unless nqp::isnull($ctf) {
                                     # We need to do the tie-break on something not yet compiled.
                                     # Get it compiled.