Mercurial > repos > rhope

view 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
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[] }
}