[svn:parrot] r34135 - trunk/languages/perl6/src/builtins

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

• [svn:parrot] r34135 - trunk/languages/perl6/src/builtins by pmichaud