Mercurial > repos > tabletprog
view src/kernel.tp @ 68:3a169ebb3224
Change strategy for handling true and false to avoid some initialization order problems and improve performance. Add support for negative integer literals. Update samples to reflect true/false change.
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Sat, 14 Jul 2012 16:14:01 -0700 |
parents | 96e21f525b78 |
children |
line wrap: on
line source
/* array <- #{ new <- { length <- 0 #{ each <- :fun { repeat: length :idx { fun: idx (get: idx) } } } } } */ true <- #{ if:else <- :self trueblock :elseblock { trueblock: } } false <- #{ if:else <- :self trueblock :elseblock { elseblock: } } filter <- :arr pred { output <- arr slice: 0 0 each: arr :idx el { if: (pred: el) { output push: el } else: {} } output }