# HG changeset patch
# User Mike Pavone <pavone@retrodev.com>
# Date 1275939364 14400
# Node ID 38d9cd036d4976b833c4ecda5af87ed139c7f02e
# Parent  d1569087348f839b0ef187dc69927456a7f3d32c
Add missing file

diff -r d1569087348f -r 38d9cd036d49 boolean.rhope
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/boolean.rhope	Mon Jun 07 15:36:04 2010 -0400
@@ -0,0 +1,23 @@
+
+Generate Boolean Methods[backend:out]
+{
+	func,inval <- [[[[[backend]Create Function["If@Boolean",("in"),("yes","no"),"rhope"]
+		]Set Input Type[Type Instance["Boolean"], 0]
+		]Set Output Type[Type Instance["Boolean"], 0]
+		]Set Output Type[Type Instance["Boolean"], 1]
+		]Read Field["in", "Val"]
+
+	ifyes <- [[[func]Instruction Stream
+		]Move["in","yes"]
+		]Set Null["no"]
+
+	ifno <- [[[func]Instruction Stream
+		]Move["in","no"]
+		]Set Null["yes"]
+
+	ffunc <- [[func]Do If[inval, ifyes]
+		]Do If[NotCond[inval], ifno]
+
+	out <- [backend]Store Function[ffunc]
+}
+