Mercurial > repos > rhope
view testpauseresume.rhope @ 140:c14698c512f1
Untested addition of Pause/Resume
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Sat, 20 Nov 2010 20:03:25 +0000 |
parents | |
children | f2cb85c53ced |
line wrap: on
line source
Yield[:out] { out <- Pause[Resume[?,0]] } Foo[:out] { Print["Foo!"] } Main[:out] { Call Async[Foo[?]] { Call Async[Foo[?]] { Call Async[Foo[?]] { Get Char[] { out <- Yield[] } }