Mercurial > repos > tabletprog
annotate src/kernel.tp @ 331:61f5b794d939
Breaking change: method call syntax now always uses the syntactic receiver as the actual receiver. This makes its behavior different from function call syntax, but solves some problems with methods being shadowed by local variables and the like.
| author | Michael Pavone <pavone@retrodev.com> |
|---|---|
| date | Sat, 28 Mar 2015 14:21:04 -0700 |
| parents | 96e21f525b78 |
| children |
| rev | line source |
|---|---|
| 33 | 1 /* |
| 2 array <- #{ | |
| 3 new <- { | |
| 4 length <- 0 | |
| 5 #{ | |
| 6 each <- :fun { | |
| 7 repeat: length :idx { | |
| 8 fun: idx (get: idx) | |
| 9 } | |
| 10 } | |
| 11 } | |
| 12 } | |
| 13 } | |
| 14 */ | |
| 15 | |
| 16 true <- #{ | |
| 17 if:else <- :self trueblock :elseblock { | |
| 18 trueblock: | |
| 19 } | |
| 20 } | |
| 21 | |
| 22 false <- #{ | |
| 23 if:else <- :self trueblock :elseblock { | |
| 24 elseblock: | |
| 25 } | |
| 26 } | |
| 27 | |
| 28 filter <- :arr pred { | |
| 29 output <- arr slice: 0 0 | |
| 30 each: arr :idx el { | |
| 31 if: (pred: el) { | |
| 32 output push: el | |
| 33 } else: {} | |
| 34 } | |
| 35 output | |
| 36 } |