Mercurial > repos > rhope
comparison 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 |
comparison
equal
deleted
inserted
replaced
139:a68e6828d896 | 140:c14698c512f1 |
---|---|
1 | |
2 Yield[:out] | |
3 { | |
4 out <- Pause[Resume[?,0]] | |
5 } | |
6 | |
7 Foo[:out] | |
8 { | |
9 Print["Foo!"] | |
10 } | |
11 | |
12 Main[:out] | |
13 { | |
14 Call Async[Foo[?]] | |
15 { Call Async[Foo[?]] | |
16 { Call Async[Foo[?]] | |
17 { Get Char[] | |
18 { out <- Yield[] } | |
19 } | |
20 |