view testpauseresume.rhope @ 148:f582fd6c75ee

Fixed framework port, works for said.rhope example
author Mike Pavone <pavone@retrodev.com>
date Mon, 22 Nov 2010 01:37:05 -0500
parents f2cb85c53ced
children
line wrap: on
line source


Foo[:out]
{
	a <- Yield[]
	Val[a]
	{ out <- Print["Foo!"] }
}

Main[:out]
{
	Call Async[Foo[?]]
	{ got char <- Get Char[] }
	Val[got char]
	{ out <- Yield[] }
}