Add protos for first and grep.

rakudo · Dec 24, 2009 · 78e4226 · 78e4226
1 parent 0977b1e
commit 78e4226
Showing 1 changed file with 2 additions and 0 deletions.
diff --git 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