Mercurial > repos > icfp2012

comparison src/lifter.tp @ 28:7a274d6026c8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use built-in true and false.
author Mike Pavone <pavone@retrodev.com>
date Sat, 14 Jul 2012 19:33:35 -0700
parents 50a456168c25
children f7a1daaec925
comparison
equal deleted inserted replaced
27:feb38aecb98f 28:7a274d6026c8
1 #{ 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
14 main <- { 2 main <- {
15 text <- sim readFd: 0 3 text <- sim readFd: 0
16 playfield <- (sim state) fromStr: text 4 playfield <- (sim state) fromStr: text
17 os write: 2 text 5 os write: 2 text
18 os write: 2 "width: " . (string: (playfield width)) . "\n" 6 os write: 2 "width: " . (string: (playfield width)) . "\n"