summaryrefslogtreecommitdiff
path: root/src/sail.ml
diff options
context:
space:
mode:
Diffstat (limited to 'src/sail.ml')
-rw-r--r--src/sail.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/sail.ml b/src/sail.ml
index 0656aefa..c5b8e6ac 100644
--- a/src/sail.ml
+++ b/src/sail.ml
@@ -511,7 +511,7 @@ let target name out_name ast type_envs =
| Some "smt" when !opt_smt_serialize ->
let ast_smt, type_envs = Specialize.(specialize typ_ord_specialization type_envs ast) in
let ast_smt, type_envs = Specialize.(specialize_passes 2 int_specialization_with_externs type_envs ast_smt) in
- let jib, ctx = Jib_smt.compile type_envs ast_smt in
+ let jib, _, ctx = Jib_smt.compile type_envs ast_smt in
let name_file =
match !opt_file_out with
| Some f -> f ^ ".smt_model"