Small optimization in "samewith"

rakudo · Aug 7, 2013 · a3eecdc · a3eecdc
1 parent 1d15f4d
commit a3eecdc
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/core/control.pm b/src/core/control.pm
@@ -119,10 +119,10 @@ my &lastcall := -> {
 };
 
 my &samewith := -> *@pos, *%named {
-    my $caller = callframe(1);
-    my $self   = $caller.my<self>
+    my $my   = callframe(1).my;
+    my $self = $my<self>
       || die "Could not find 'self'";
-    my $dispatcher = $caller.my<&?ROUTINE>.dispatcher
+    my $dispatcher = $my<&?ROUTINE>.dispatcher
       || die "Could not find dispatcher";
     $dispatcher( $self, |@pos, |%named );
 }