# HG changeset patch
# User Mike Pavone <pavone@retrodev.com>
# Date 1342319534 25200
# Node ID 0efd25a4958a53d1c8c75b7b1ea7fa4401fb6604
# Parent  ba032565c7a58536c8cc18a296b278ec43404573
Update true and false with improved versions from ICFP contest project

diff -r ba032565c7a5 -r 0efd25a4958a modules/false.tp
--- a/modules/false.tp	Sat Jul 14 19:24:04 2012 -0700
+++ b/modules/false.tp	Sat Jul 14 19:32:14 2012 -0700
@@ -1,6 +1,8 @@
 #{
+	if <- :self trueblock {
+		self
+	}
 	if:else <- :self trueblock :elseblock {
 		elseblock:
 	}
 }
-
diff -r ba032565c7a5 -r 0efd25a4958a modules/true.tp
--- a/modules/true.tp	Sat Jul 14 19:24:04 2012 -0700
+++ b/modules/true.tp	Sat Jul 14 19:32:14 2012 -0700
@@ -1,6 +1,8 @@
 #{
+	if <- :self trueblock {
+		trueblock:
+	}
 	if:else <- :self trueblock :elseblock {
 		trueblock:
 	}
 }
-