something something tuples

[minfp.git] / ast.dcl

diff --git a/ast.dcl b/ast.dcl
index 4dfad17..72fdf2c 100644 (file)
--- a/ast.dcl
+++ b/ast.dcl
@@ -10,6 +10,7 @@ from int import :: Eval
 :: Expression
        = Lit Value
        | Var [Char]
+       | Tuple Expression Expression
        | App Expression Expression
        | Lambda [Char] Expression
        | Let [([Char], Expression)] Expression
@@ -17,6 +18,7 @@ from int import :: Eval
 :: Value
        = Int Int
        | Bool Bool
+       | ** infix 9 Expression Expression
        | Lambda` [Char] Expression
        | Builtin (Expression -> Eval Expression)