Changeset 22985 for src

Show
Ignore:
Timestamp:
11/12/08 00:37:45 (8 weeks ago)
Author:
lwall
Message:

[Cursor] revert last; fix because it breaks ~~ and friends

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/perl6/Cursor.pmc

    r22971 r22985  
    12701270 
    12711271    local $CTX = $self->callm if $DEBUG & DEBUG::trace_call; 
    1272     my @all = $block->($self->cursor_fresh); 
    1273     return () if @all;  # XXX loses continuation 
     1272    my @all = $block->($self); 
     1273    return () if @all; 
    12741274    return $self->cursor($self->{_pos})->retm(); 
    12751275} 
    … …  
    12801280    local $CTX = $self->callm if $DEBUG & DEBUG::trace_call; 
    12811281    my @all = $block->($self); 
    1282     return () if @all;  # XXX loses continuation 
     1282    return () if @all; 
    12831283    return $self->cursor($self->{_pos}+1)->retm(); 
    12841284}