Mercurial > repos > rhope
view testglobal.rhope @ 146:1f39e69446f9
Finished porting webserver
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Sun, 21 Nov 2010 22:47:14 -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[~] }}}}} }