← Back to branch summary

~ubuntu-branches/ubuntu/raring/rakudo/raring

« back to all changes in this revision

Viewing changes to src/core/GatherIter.pm

  • Committer: Package Import Robot
  • Author(s): Adam Conrad
  • Date: 2012-11-29 01:00:04 UTC
  • mfrom: (7.1.5 raring-proposed)
  • Revision ID: package-import@ubuntu.com-20121129010004-3vmbbb2e53up4u14
Tags: 2012.10-1build1
Rebuild with the current version of the Not Quite Perl compiler.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/core/GatherIter.pm
41
41
 
42
42
    method infinite() { $!infinite }
43
43
 
44
 
    my sub coro(\$block) {
 
44
    my sub coro(\block) {
45
45
        Q:PIR {
46
46
            .local pmc block, handler, taken
47
 
            block = find_lex '$block'
 
47
            block = find_lex 'block'
48
48
            .yield ()
49
49
            handler = root_new ['parrot';'ExceptionHandler']
50
50
            handler.'handle_types'(.CONTROL_TAKE)
71
71
}
72
72
 
73
73
 
74
 
sub GATHER(\$block, Mu :$infinite) { 
75
 
    GatherIter.new( $block, :$infinite ).list;  
 
74
sub GATHER(\block, Mu :$infinite) { 
 
75
    GatherIter.new( block, :$infinite ).list;  
76
76
}
77
77