Mercurial > repos > tabletprog

view samples/private.tp @ 64:38127fbf5f9d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add sample for bug involving accesing a property of a parent object as an initial value for a new object property
author Mike Pavone <pavone@retrodev.com>
date Sat, 14 Jul 2012 04:53:31 -0700
parents cd41f7c22fcd
children
line wrap: on
line source

#{
	makeobj <- {
		foo <- 40
		#{
			bar <- {
				foo
			}
			inc <- {
				foo <- foo + 1
				1
			}
		}
	}
	main <- {
		baz <- makeobj:
		inc: baz
		inc: baz
		bar: baz
	}
}