Mercurial > repos > tabletprog
diff samples/recursive_closure.tp @ 55:93ddb4ad6fcb
Fix some nested closure bugs
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Fri, 13 Jul 2012 21:05:52 -0700 |
parents | |
children | 3a169ebb3224 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/samples/recursive_closure.tp Fri Jul 13 21:05:52 2012 -0700 @@ -0,0 +1,24 @@ +#{ + true <- #{ + if:else <- :self trueblock :elseblock { + trueblock: + } + } + + false <- #{ + if:else <- :self trueblock :elseblock { + elseblock: + } + } + main <- { + foo <- :n { + if: n < 10 { + true + } else: { + foo <- :n { n } + } + foo: n + 1 + } + print: (string: (foo: 0)) + } +}