[svn:parrot] r47850 - in branches/gsoc_past_optimization/runtime/parrot/library/Tree: . Pattern

[tcurtis at svn.parrot.org]

Author: tcurtis
Date: Sat Jun 26 01:42:01 2010
New Revision: 47850
URL: https://trac.parrot.org/parrot/changeset/47850

Log:
Tree::Pattern::Transform is Tree::Transformer. Also, fix a bug in Tree::Pattern.transform related to module loading.

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

Modified: branches/gsoc_past_optimization/runtime/parrot/library/Tree/Pattern.nqp
==============================================================================
--- branches/gsoc_past_optimization/runtime/parrot/library/Tree/Pattern.nqp	Sat Jun 26 01:12:33 2010	(r47849)
+++ branches/gsoc_past_optimization/runtime/parrot/library/Tree/Pattern.nqp	Sat Jun 26 01:42:01 2010	(r47850)
@@ -2,6 +2,10 @@
 # Copyright (C) 2010, Parrot Foundation.
 # $Id$
 
+INIT {
+    pir::load_bytecode('Tree/Transformer.pbc');
+}
+
 class Tree::Pattern is Capture {
     sub patternize ($value) {
         unless (pir::can__IPS($value, 'ACCEPTS')) {
@@ -26,7 +30,7 @@
 
     method transform ($node, $transform) {
         my &transSub;
-        if ($transform ~~ PAST::Transformer) {
+        if ($transform ~~ Tree::Transformer) {
             &transSub := sub ($/) { $transformer.walk($/.from()); };
         } elsif (pir::does__iPS($transform, 'invokable')) {
             &transSub := $transform;

Modified: branches/gsoc_past_optimization/runtime/parrot/library/Tree/Pattern/Transformer.nqp
==============================================================================
--- branches/gsoc_past_optimization/runtime/parrot/library/Tree/Pattern/Transformer.nqp	Sat Jun 26 01:12:33 2010	(r47849)
+++ branches/gsoc_past_optimization/runtime/parrot/library/Tree/Pattern/Transformer.nqp	Sat Jun 26 01:42:01 2010	(r47850)
@@ -3,14 +3,14 @@
 # $Id$
 
 INIT {
-    pir::load_bytecode('PAST/Transformer.pbc');
+    pir::load_bytecode('Tree/Transformer.pbc');
 }
 
-class Tree::Pattern::Transformer is PAST::Transformer {
+class Tree::Pattern::Transformer is Tree::Transformer {
     has $pattern;
     has $transform;
 
-    method new ($pattern?, $transform?) {
+    method new ($pattern, $transform) {
         my $class := pir::getattribute__PPS(self.HOW(),
                                            'parrotclass');
         my $self := pir::new__PP($class);