Mercurial > repos > rhope
diff testglobal.rhope @ 139:a68e6828d896
Global stores and transactions are working. Definately leaks memory on retries. Probably a fair number of bugs to work out. However, a basic test program works.
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Fri, 19 Nov 2010 04:04:14 -0500 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/testglobal.rhope Fri Nov 19 04:04:14 2010 -0500 @@ -0,0 +1,22 @@ + +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[~] }}}}} +} +