view testpauseresume.rhope @ 147:f3686f60985d

Sort of working port of framework. Transaction bug seems to be getting in the way. Going to work around, but want the old version in the repo so I can test later.
author Mike Pavone <pavone@retrodev.com>
date Mon, 22 Nov 2010 01:15:02 -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[] }
}