[World] avoid a lookup for which we already have a variable

rakudo · Apr 10, 2012 · edfd0f2 · edfd0f2
1 parent 32c674e
commit edfd0f2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Perl6/World.pm b/src/Perl6/World.pm
@@ -702,7 +702,7 @@ class Perl6::World is HLL::World {
 
         # Set yada flag if needed.
         if $yada {
-            my $rtype := self.find_symbol(['Routine']);
+            my $rtype := $routine_type;
             nqp::bindattr_i($code, $rtype, '$!yada', 1);
         }