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 }