Mercurial > repos > rhope
comparison 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 |
comparison
equal
deleted
inserted
replaced
138:1411de6050e1 | 139:a68e6828d896 |
---|---|
1 | |
2 Globals Increment | |
3 { | |
4 Num <- 0 | |
5 } | |
6 | |
7 Do Incr[:out] uses Increment | |
8 { | |
9 out <- Increment::Num | |
10 Increment::Num <- [Increment::Num]+[1] | |
11 } | |
12 | |
13 Main[:out] | |
14 { | |
15 Do Incr[] | |
16 { Print[~] | |
17 { Do Incr[] | |
18 { Print[~] | |
19 { Do Incr[] | |
20 { out <- Print[~] }}}}} | |
21 } | |
22 |