--- /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]
+}
+