Mercurial > repos > icfp2012
view src/lifter.tp @ 22:a90992bc7331
Add compiler debug option to makefile
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Sat, 14 Jul 2012 14:37:37 -0700 |
parents | 50a456168c25 |
children | 7a274d6026c8 |
line wrap: on
line source
#{ true <- #{ if:else <- :self trueblock :elseblock { trueblock: } } false <- #{ if:else <- :self trueblock :elseblock { elseblock: } } main <- { text <- sim readFd: 0 playfield <- (sim state) fromStr: text os write: 2 text os write: 2 "width: " . (string: (playfield width)) . "\n" os write: 2 "height: " . (string: (playfield height)) . "\n" } }