[svn:parrot] r47919 - branches/gsoc_past_optimization/runtime/parrot/library/Tree

tcurtis at svn.parrot.org tcurtis at svn.parrot.org
Wed Jun 30 00:34:20 UTC 2010


Author: tcurtis
Date: Wed Jun 30 00:34:19 2010
New Revision: 47919
URL: https://trac.parrot.org/parrot/changeset/47919

Log:
Add support for options in Tree::Pattern.transform.

Modified:
   branches/gsoc_past_optimization/runtime/parrot/library/Tree/Pattern.nqp

Modified: branches/gsoc_past_optimization/runtime/parrot/library/Tree/Pattern.nqp
==============================================================================
--- branches/gsoc_past_optimization/runtime/parrot/library/Tree/Pattern.nqp	Tue Jun 29 23:20:53 2010	(r47918)
+++ branches/gsoc_past_optimization/runtime/parrot/library/Tree/Pattern.nqp	Wed Jun 30 00:34:19 2010	(r47919)
@@ -28,7 +28,7 @@
         $result;
     }
 
-    method transform ($node, $transform) {
+    method transform ($node, $transform, *%adverbs) {
         my &transSub;
         if ($transform ~~ Tree::Transformer) {
             &transSub := sub ($/) { $transformer.walk($/.orig()); };
@@ -38,7 +38,7 @@
             pir::die('$transform must be invokable or a PAST::Transformer.');
         }
         my $transformer :=
-          Tree::Pattern::Transformer.new(self, &transSub);
+          Tree::Pattern::Transformer.new(self, &transSub, |%adverbs);
         $transformer.walk($node);
     }
 


More information about the parrot-commits mailing list