view testpauseresume.rhope @ 177:e57c151f351e

Get bytecode engine working well enough for naive fib
author Mike Pavone <pavone@retrodev.com>
date Sun, 12 Jun 2011 03:49:51 -0700
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[] }
}