Mercurial > repos > tabletprog
annotate 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 |
| rev | line source |
|---|---|
| 55 | 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 } |