Changeset 14497 for docs/Perl6/Spec

Show
Ignore:
Timestamp:
10/24/06 17:20:30 (2 years ago)
Author:
audreyt
svk:copy_cache_prev:
21659
Message:

* some more cleanup.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • docs/Perl6/Spec/Concurrency.pod

    r14496 r14497  
    115115 
    116116    my ($x, $y); 
    117     sub c { contend { 
    118         $x -= 3; 
    119         $y += 3; 
    120         if $x < 10 { defer } 
    121     } }; 
    122  
    123     maybe { c() } maybe { d() }; 
    124  
    125     if $i { contend { ...}  } else { ...; } 
     117    sub c { 
     118        $x -= 3; $y += 3; 
     119        $x < 10 or defer; 
     120    } 
     121    sub d { 
     122        $x += 3; $y -= 3; 
     123        $y < 10 or defer; 
     124    } 
     125 
     126    contend { 
     127        # ... 
     128        maybe { c() } maybe { d() }; 
     129        # ... 
     130    } 
    126131 
    127132A Code block can be prefixed with C<contend>.  This means that code executed