Mercurial > repos > tabletprog

changeset 70:0efd25a4958a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update true and false with improved versions from ICFP contest project
author Mike Pavone <pavone@retrodev.com>
date Sat, 14 Jul 2012 19:32:14 -0700
parents ba032565c7a5
children 01b6f8204cdf ab6f24d6945d
files modules/false.tp modules/true.tp
diffstat 2 files changed, 6 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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:
 	}
 }
-
--- 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:
 	}
 }
-