Changeset 22475 for src/perl6

Timestamp:

10/01/08 21:39:33 (2 months ago)

Author:

lwall

Message:

[STD] add implicit {*} hook at end of rules

Location:

src/perl6

Files:

• Cursor.pmc (modified) (3 diffs)
• gimme5 (modified) (2 diffs)

src/perl6/Cursor.pmc

@@ -1087 +1087 @@
 
 sub _MATCHIFY { my $self = shift;
+    my $name = shift;
     return () unless @_;
-    my @result = lazymap( sub { my $x = shift; $x->{_from} = $self->{_from}; $x->retm() }, @_);
+    my @result = lazymap( sub { my $x = shift; $x->{_from} = $self->{_from}; $x->_REDUCE($name)->retm() }, @_);
     if (wantarray) {
         @result;
@@ -1098 +1099 @@
 
 sub _MATCHIFYr { my $self = shift;
+    my $name = shift;
     return () unless @_;
     my $var = shift;
     $var->{_from} = $self->{_from};
-    $var->retm();
+    $var->_REDUCE($name)->retm();
 }
 
@@ -1941 +1943 @@
     my $tag = shift;
 
-    local $CTX = $self->callm($tag) if $DEBUG & DEBUG::trace_call;
     my $P = $self->{_pos};
     my $F = $self->{_from};

src/perl6/gimme5

@@ -352 +352 @@
             push \@gather, \$C->\$try(\@_);
         }
-        \$self->_MATCHIFY(\@gather);
+        \$self->_MATCHIFY("$NAME", \@gather);
     };
     if (\$@) {
@@ -617 +617 @@
                 $body .= <<"END";
 
-    \$self->_MATCHIFY$ratchet($coercion
+    \$self->_MATCHIFY$ratchet("$NAME", $coercion
 <<MEAT>>
     );