Mercurial > repos > tabletprog

view samples/recursive_closure.tp @ 78:abc6f3d644a4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use Boehm-GC for garbage collection. Also make no_impl print on stderr rather than standard in and return a non-zero error code.
author Mike Pavone <pavone@retrodev.com>
date Sun, 15 Jul 2012 18:11:00 -0700
parents 3a169ebb3224
children
line wrap: on
line source

#{
	main <- {
		foo <- :n {
			if: n < 10 {
				true
			} else: {
				foo <- :n { n }
			}
			foo: n + 1
		}
		print: (string: (foo: 0))
	}
}