# HG changeset patch
# User Mike Pavone <pavone@retrodev.com>
# Date 1342319615 25200
# Node ID 7a274d6026c833a1eab26cc6fc4efe0238a44d35
# Parent  feb38aecb98fc4d8b7d236a2bd9baf57005e0dd8
Use built-in true and false.

diff -r feb38aecb98f -r 7a274d6026c8 src/lifter.tp
--- 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
diff -r feb38aecb98f -r 7a274d6026c8 src/sim.tp
--- 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 <- #{