problematic testcase

diff --git a/tests/preamble.mfp b/tests/preamble.mfp
index cae72d6..b06bc68 100644 (file)
--- a/tests/preamble.mfp
+++ b/tests/preamble.mfp
@@ -9,13 +9,15 @@ $ ifxr 0 x y = x y;
 - ifxl 6 = code sub;
 + ifxl 6 = code add;
 
+on f g a b = f (g a) (g b);
+
 //Conditional operators
 if = code if;
 
-fac i = if (i == 0) 1 $ i * fac (i - 1);
+//fac i = if (i == 0) 1 $ i * fac (i - 1);
 id x = x;
 
 even i = if (i == 0) True (odd (i - 1));
 odd i = if (i == 0) False (even (i - 1));
 
-start = odd;
+start = on;