Mercurial > repos > rhope

diff 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
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[~] }}}}}
+}
+