| … | … | ||
|---|---|---|---|
| 153 | *{ $flavour } = $coronew; | 153 | *{ $flavour } = $coronew; |
| 154 | *{"do_$flavour"} = sub { | 154 | *{"do_$flavour"} = sub { |
| 155 | unshift @_, Coro::Event::; | 155 | unshift @_, Coro::Event::; |
| 156 | @_ = &$coronew; | 156 | @_ = &$coronew; |
| 157 | &Coro::schedule while &_next; | 157 | &Coro::schedule while &_next; |
| 158 | $_[0]->cancel; | ||
| 158 | &_event | 159 | &_event |
| 159 | }; | 160 | }; |
| 160 | } | 161 | } |
| 161 | 162 | ||
| 162 | # do schedule in perl to avoid forcing a stack allocation. | 163 | # do schedule in perl to avoid forcing a stack allocation. |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |