view testglobal.rhope @ 154:29b479a2ce48

Make memory leak detection controllable by a define
author Mike Pavone <pavone@retrodev.com>
date Tue, 21 Dec 2010 04:11:47 +0000
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[~] }}}}}
}