From ef0082e8e9d6ec05be507a402ca3e4ac64f297cd Mon Sep 17 00:00:00 2001
From: Brian Campbell
Date: Mon, 29 Jul 2019 17:49:15 +0100
Subject: Add type check after descattering to keep type environments up to
 date

---
 src/sail.ml | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src')

diff --git a/src/sail.ml b/src/sail.ml
index e9b1914d..ddea4a41 100644
--- a/src/sail.ml
+++ b/src/sail.ml
@@ -410,6 +410,9 @@ let load_files ?check:(check=false) type_envs files =
   else
     let ast = Scattered.descatter ast in
     let ast, type_envs = rewrite_ast_initial type_envs ast in
+    (* Recheck after descattering so that the internal type environments always
+       have complete variant types *)
+    let ast, type_envs = Type_error.check Type_check.initial_env ast in
 
     let out_name = match !opt_file_out with
       | None when parsed = [] -> "out.sail"
-- 
cgit v1.2.3