Author: pmichaud
Date: Sat Dec 20 02:57:52 2008
New Revision: 34135
Modified:
trunk/languages/perl6/src/builtins/any-list.pir
Log:
[rakudo]: Clean up export handling for 'map' and 'grep'.
Modified: trunk/languages/perl6/src/builtins/any-list.pir
==============================================================================
--- trunk/languages/perl6/src/builtins/any-list.pir (original)
+++ trunk/languages/perl6/src/builtins/any-list.pir Sat Dec 20 02:57:52 2008
@@ -21,7 +21,7 @@
.namespace ['Any']
.sub 'onload' :anon :init :load
$P0 = get_hll_namespace ['Any']
- '!EXPORT'('end,map,grep', 'from'=>$P0)
+ '!EXPORT'('end', 'from'=>$P0)
.end
=item elems()
@@ -59,6 +59,14 @@
=cut
+.namespace []
+.sub 'grep' :multi('Sub')
+ .param pmc test
+ .param pmc values :slurpy
+ .tailcall values.'grep'(test)
+.end
+
+.namespace ['Any']
.sub 'grep' :method :multi(_, 'Sub')
.param pmc test
.local pmc retv
@@ -81,12 +89,6 @@
.return(retv)
.end
-.sub 'grep' :multi('Sub')
- .param pmc test
- .param pmc values :slurpy
- .tailcall values.'grep'(test)
-.end
-
=item join
=cut
