unrolling forests without recursion

[sbp.git] / tests / ifthen.tc

diff --git a/tests/ifthen.tc b/tests/ifthen.tc
index dbb613d..6d23a52 100644 (file)
--- a/tests/ifthen.tc
+++ b/tests/ifthen.tc
@@ -4,10 +4,9 @@ testcase {
 
   s             = Expr
 
-  Expr          =              IfThen
-                | IfThenElse:: IfThen "else" Expr /ws &~ IfThen
+  Expr          = IfThen::     "if" "(" Expr ")" Expr             /ws
+                | IfThenElse:: "if" "(" Expr ")" (x:: Expr "else" Expr /ws &~ Expr) /ws
                 | Identifier:: [a-z]++ 
-  IfThen        = IfThen:: "if" "(" Expr ")" Expr             /ws
 
   ws            = [\n ]**