Mercurial > repos > icfp2012
changeset 28:7a274d6026c8
Use built-in true and false.
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Sat, 14 Jul 2012 19:33:35 -0700 |
parents | feb38aecb98f |
children | d9f1a063a466 |
files | src/lifter.tp src/sim.tp |
diffstat | 2 files changed, 0 insertions(+), 40 deletions(-) [+] |
line wrap: on
line diff
--- a/src/lifter.tp Sat Jul 14 19:29:50 2012 -0700 +++ b/src/lifter.tp Sat Jul 14 19:33:35 2012 -0700 @@ -1,16 +1,4 @@ #{ - true <- #{ - if:else <- :self trueblock :elseblock { - trueblock: - } - } - - false <- #{ - if:else <- :self trueblock :elseblock { - elseblock: - } - } - main <- { text <- sim readFd: 0 playfield <- (sim state) fromStr: text
--- a/src/sim.tp Sat Jul 14 19:29:50 2012 -0700 +++ b/src/sim.tp Sat Jul 14 19:33:35 2012 -0700 @@ -1,22 +1,4 @@ { - true <- #{ - if <- :self trueblock { - trueblock: - } - if:else <- :self trueblock :elseblock { - trueblock: - } - } - - false <- #{ - if <- :self trueblock { - self - } - if:else <- :self trueblock :elseblock { - elseblock: - } - } - eachbyte <- :string action { strLen <- string byte_length: index <- 0 @@ -91,18 +73,8 @@ } } } - ttrue <- true - tfalse <- false #{ - // utilities - true <- ttrue - - false <- tfalse - - // end utilities - - cellTypes <- makeCellTypes: state <- #{