Mercurial > repos > rhope

comparison testpauseresume.rhope @ 140:c14698c512f1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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