Streamline :nth(*-1)

rakudo · Dec 18, 2014 · f8267f2 · f8267f2
1 parent 57faf7a
commit f8267f2
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/src/core/Str.pm b/src/core/Str.pm
@@ -621,9 +621,7 @@ my class Str does Stringy { # declared in BOOTSTRAP
                 my $max = 0;
                 while @nlist {
                     my $n = shift @nlist;
-                    if $n ~~ Callable {
-                        $n = $n(+@src) + 1;
-                    }
+                    $n = $n(+@src) + 1 if nqp::istype($n, Callable);
                     fail "Attempt to retrieve negative match :nth($n)" if $n < 1;
                     if $n > $max { take @src[$n-1]; $max = $n; }
                 }