Split out blocks into their own file

1 files changed, 4 insertions, 21 deletions

diff --git a/src/compile/statements.c b/src/compile/statements.c
index ee70fdea..8dcac48c 100644
--- a/src/compile/statements.c
+++ b/src/compile/statements.c
@@ -2,16 +2,19 @@
 
 #include "../ast.h"
 #include "../compile.h"
+#include "../config.h"
 #include "../environment.h"
 #include "../modules.h"
 #include "../naming.h"
 #include "../stdlib/datatypes.h"
 #include "../stdlib/paths.h"
+#include "../stdlib/print.h"
 #include "../stdlib/tables.h"
 #include "../stdlib/text.h"
 #include "../stdlib/util.h"
 #include "../typecheck.h"
 #include "assignments.h"
+#include "blocks.h"
 #include "functions.h"
 #include "optionals.h"
 #include "pointers.h"
@@ -30,26 +33,6 @@ Text_t with_source_info(env_t *env, ast_t *ast, Text_t code) {
 }
 
 public
-Text_t compile_inline_block(env_t *env, ast_t *ast) {
-    if (ast->tag != Block) return compile_statement(env, ast);
-
-    Text_t code = EMPTY_TEXT;
-    ast_list_t *stmts = Match(ast, Block)->statements;
-    deferral_t *prev_deferred = env->deferred;
-    env = fresh_scope(env);
-    for (ast_list_t *stmt = stmts; stmt; stmt = stmt->next)
-        prebind_statement(env, stmt->ast);
-    for (ast_list_t *stmt = stmts; stmt; stmt = stmt->next) {
-        code = Texts(code, compile_statement(env, stmt->ast), "\n");
-        bind_statement(env, stmt->ast);
-    }
-    for (deferral_t *deferred = env->deferred; deferred && deferred != prev_deferred; deferred = deferred->next) {
-        code = Texts(code, compile_statement(deferred->defer_env, deferred->block));
-    }
-    return code;
-}
-
-public
 Text_t compile_condition(env_t *env, ast_t *ast) {
     type_t *t = get_type(env, ast);
     if (t->tag == BoolType) {
@@ -1002,7 +985,7 @@ static Text_t _compile_statement(env_t *env, ast_t *ast) {
         }
     }
     case Block: {
-        return Texts("{\n", compile_inline_block(env, ast), "}\n");
+        return compile_block(env, ast);
     }
     case Comprehension: {
         if (!env->comprehension_action) code_err(ast, "I don't know what to do with this comprehension!");