From 78e42267d48141418ceafc7ed41676fa2acc51e8 Mon Sep 17 00:00:00 2001 From: Solomon Foster Date: Thu, 24 Dec 2009 10:50:43 -0500 Subject: [PATCH] Add protos for first and grep. --- src/core/Any-list.pm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/core/Any-list.pm b/src/core/Any-list.pm index b97c9c6a998..fc1f34b5805 100644 --- a/src/core/Any-list.pm +++ b/src/core/Any-list.pm @@ -52,6 +52,8 @@ our proto sub join (Str $separator = '', *@values) { @values.join($separator); } our proto sub reverse(@values) { @values.reverse; } our multi sub reverse(*@v) { @v.reverse; } our proto sub end(@array) { @array.end; } +our proto sub grep($test, @values) { @values.grep($test); } +our proto sub first($test, @values) { @values.first($test); } # vim: ft=perl6