view testglobal.rhope @ 162:bac2c74801f0

Move some C code out of cbackend_c.rhope into separate include files
author Mike Pavone <pavone@retrodev.com>
date Sun, 09 Jan 2011 22:51:10 -0500
parents a68e6828d896
children
line wrap: on
line source


Globals Increment
{
	Num <- 0
}

Do Incr[:out] uses Increment
{
	out <- Increment::Num
	Increment::Num <- [Increment::Num]+[1]
}

Main[:out]
{
	Do Incr[]
	{ Print[~]
	{ Do Incr[]
	{ Print[~] 
	{ Do Incr[]
	{ out <- Print[~] }}}}}
}