Mercurial > repos > rhope

comparison testglobal.rhope @ 139:a68e6828d896

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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