Mercurial > repos > rhope
diff 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 diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/testpauseresume.rhope Sat Nov 20 20:03:25 2010 +0000 @@ -0,0 +1,20 @@ + +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[] } +} +