Add block expressions

1 files changed, 10 insertions, 0 deletions

diff --git a/ast.c b/ast.c
index 6fc66ff..4f38b19 100644
--- a/ast.c
+++ b/ast.c
@@ -387,6 +387,16 @@ ast_expression_new_new (ast_type_spec_t *type,
 }
 
 ast_expression_t *
+ast_expression_new_block (ast_expression_t *body)
+{
+    ast_expression_t *expr = expression_new (AST_BLOCK_EXPRESSION);
+
+    expr->block.body = body;
+
+    return expr;
+}
+
+ast_expression_t *
 ast_expression_new_dot (ast_expression_t *left,
 			const char       *name)
 {