Mercurial > repos > tabletprog
comparison 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 |
comparison
equal
deleted
inserted
replaced
54:976a0924e1d4 | 55:93ddb4ad6fcb |
---|---|
1 #{ | |
2 true <- #{ | |
3 if:else <- :self trueblock :elseblock { | |
4 trueblock: | |
5 } | |
6 } | |
7 | |
8 false <- #{ | |
9 if:else <- :self trueblock :elseblock { | |
10 elseblock: | |
11 } | |
12 } | |
13 main <- { | |
14 foo <- :n { | |
15 if: n < 10 { | |
16 true | |
17 } else: { | |
18 foo <- :n { n } | |
19 } | |
20 foo: n + 1 | |
21 } | |
22 print: (string: (foo: 0)) | |
23 } | |
24 } |