[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