Cheapen late-bound method lookup.

Raku · Aug 1, 2014 · 4b6a4af · 4b6a4af
1 parent 6923af7
commit 4b6a4af
Showing 1 changed file with 13 additions and 9 deletions.
diff --git a/src/how/NQPClassHOW.nqp b/src/how/NQPClassHOW.nqp
@@ -717,20 +717,24 @@ knowhow NQPClassHOW {
             my %meths := $_.HOW.method_table($obj);
             if nqp::existskey(%meths, $name) {
                 my $found := %meths{$name};
-                return $!trace && !$no_trace && self.should_trace($obj, $name) ??
-                    -> *@pos, *%named { 
-                        nqp::say(nqp::x('  ', $!trace_depth) ~ "Calling $name");
-                        $!trace_depth := $!trace_depth + 1;
-                        my $result := $found(|@pos, |%named);
-                        $!trace_depth := $!trace_depth - 1;
-                        $result
-                    } !!
-                    $found;
+                return $!trace && !$no_trace && self.should_trace($obj, $name)
+                    ?? self.make_tracer($name, $found)
+                    !! $found;
             }
         }
         nqp::null()
     }
 
+    method make_tracer($name, $found) {
+        -> *@pos, *%named { 
+            nqp::say(nqp::x('  ', $!trace_depth) ~ "Calling $name");
+            $!trace_depth := $!trace_depth + 1;
+            my $result := $found(|@pos, |%named);
+            $!trace_depth := $!trace_depth - 1;
+            $result
+        }
+    }
+
     ##
     ## Cache-related
     ##