--- a/boolean.rhope	Sun May 08 01:37:44 2011 -0700
+++ b/boolean.rhope	Sun May 08 18:21:19 2011 -0700
@@ -21,3 +21,25 @@
 	out <- [backend]Store Function[ffunc]
 }
 
+Compile Boolean Inline Check[func,op,type,in,outyes,outno:out,no inline]
+{
+	,no inline <- If[[op]=["If"]]
+	{
+		,no inline <- If[[[type]Name >>]=["Boolean"]]
+		{
+			ifyes <- [[func]Instruction Stream
+			]Move[in, outyes]
+			
+			ifno <- [[func]Instruction Stream
+			]Move[in, outno]
+			
+			,inval <- [func]Read Field[Cast[in, type] "Val"]
+			{ 
+				out <- [[~]Do If[inval, ifyes]
+					]Do If[NotCond[inval], ifno]
+			}
+			
+		}
+	}
+}
+