Changeset 22486 for src/perl6/Cursor.pmc

Timestamp:

10/02/08 19:20:32 (3 months ago)

Author:

lwall

Message:

[STD] more ACTIONS infrastructure, can now set $ACTIONS to a class in which
methods are called according to reduction tag.

Files:

• src/perl6/Cursor.pmc (modified) (1 diff)

src/perl6/Cursor.pmc

@@ -1946 +1946 @@
     my $F = $self->{_from};
     $self->{_reduced} = $tag;
+    if ($::ACTIONS) {
+        eval { $::ACTIONS->$tag($self) }
+    }
     $self->deb("REDUCE $tag from $F to $P") if $DEBUG & DEBUG::matchers;
 #    $self->whats;