develooper Front page | perl.cvs.parrot | Postings from December 2008

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

From:
pmichaud
Date:
December 20, 2008 02:58
Subject:
[svn:parrot] r34135 - trunk/languages/perl6/src/builtins
Message ID:
20081220105755.5578ACBA12@x12.develooper.com
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



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About