From acb6db5a8d14e83e6d86d2ad2bf285ea931b518f Mon Sep 17 00:00:00 2001
From: Alasdair Armstrong
Date: Mon, 15 Jan 2018 18:57:59 +0000
Subject: Add help to interactive mode, and load files incrementally

---
 src/process_file.ml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/process_file.ml')

diff --git a/src/process_file.ml b/src/process_file.ml
index 435beb3c..b3c231fe 100644
--- a/src/process_file.ml
+++ b/src/process_file.ml
@@ -89,9 +89,9 @@ let opt_ddump_tc_ast = ref false
 let opt_ddump_rewrite_ast = ref None
 let opt_dno_cast = ref false
 
-let check_ast (defs : unit Ast.defs) : Type_check.tannot Ast.defs * Type_check.Env.t =
-  let ienv = if !opt_dno_cast then Type_check.Env.no_casts Type_check.initial_env else Type_check.initial_env in
-  let ast, env = Type_check.check ienv defs in
+let check_ast (env : Type_check.Env.t) (defs : unit Ast.defs) : Type_check.tannot Ast.defs * Type_check.Env.t =
+  let env = if !opt_dno_cast then Type_check.Env.no_casts env else env in
+  let ast, env = Type_check.check env defs in
   let () = if !opt_ddump_tc_ast then Pretty_print_sail.pp_defs stdout ast else () in
   let () = if !opt_just_check then exit 0 else () in
   (ast, env)
-- 
cgit v1.2.3