Mercurial > repos > rhope

view testglobal.rhope @ 164:429afd920a23

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Allow sending and receiving arrays of arbitrary objects rather than just UInt8s
author Mike Pavone <pavone@retrodev.com>
date Mon, 10 Jan 2011 00:25:35 -0500
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[~] }}}}}
}