Mercurial > repos > tabletprog
annotate samples/recursive_closure.tp @ 64:38127fbf5f9d
Add sample for bug involving accesing a property of a parent object as an initial value for a new object property
| author | Mike Pavone <pavone@retrodev.com> |
|---|---|
| date | Sat, 14 Jul 2012 04:53:31 -0700 |
| parents | 93ddb4ad6fcb |
| 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 } |