Changeset 21973 for src/perl6/Cursor.pmc

Timestamp:

08/20/08 21:11:51 (5 months ago)

Author:

lwall

Message:

[STD etc.] squeezing out unnecessary calls to lazymap under ratchet

Files:

• src/perl6/Cursor.pmc (modified) (4 diffs)

src/perl6/Cursor.pmc

@@ -1091 +1091 @@
 }
 
+sub _MATCHIFYr { my $self = shift;
+    return () unless @_;
+    my $var = shift;
+    $var->{_from} = $self->{_from};
+    $var->retm();
+}
+
 sub _SCANf { my $self = shift;
 
@@ -1291 +1298 @@
     lazymap(sub { bless($_[0],ref($self))->retm() },
         $block->($self));
+}
+
+sub _BRACKETr { my $self = shift;
+    my $block = shift;
+
+    local $CTX = $self->callm if $DEBUG & DEBUG::trace_call;
+    my ($val) = $block->($self) or return ();
+    bless($val,ref($self))->retm();
 }
 
@@ -1419 +1434 @@
     lazymap(sub { $self->cursor_bind($names, $_[0])->retm() },
         $block->($self));
+}
+
+sub _SUBSUMEr { my $self = shift;
+    my $names = shift;
+    my $block = shift;
+
+    local $CTX = $self->callm($names ? "@$names" : "") if $DEBUG & DEBUG::trace_call;
+    my ($var) = $block->($self) or return ();
+    $self->cursor_bind($names, $var)->retm();
 }
 
@@ -2219 +2243 @@
 { package RE_noop; our @ISA = 'RE_base';
     sub longest { my $self = shift; my ($C) = @_; 
-        return;
+        return $IMP;
     }
 }