Mercurial > repos > rhope
diff testpauseresume.rhope @ 141:f2cb85c53ced
Fix Pause/Resume and rewrite Call Async in Rhope rather than C
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Sat, 20 Nov 2010 17:48:22 -0500 |
parents | c14698c512f1 |
children |
line wrap: on
line diff
--- a/testpauseresume.rhope Sat Nov 20 20:03:25 2010 +0000 +++ b/testpauseresume.rhope Sat Nov 20 17:48:22 2010 -0500 @@ -1,20 +1,16 @@ - -Yield[:out] -{ - out <- Pause[Resume[?,0]] -} Foo[:out] { - Print["Foo!"] + a <- Yield[] + Val[a] + { out <- Print["Foo!"] } } Main[:out] { Call Async[Foo[?]] - { Call Async[Foo[?]] - { Call Async[Foo[?]] - { Get Char[] + { got char <- Get Char[] } + Val[got char] { out <- Yield[] } }