From fcb7b8dff4fb0ae308d900b7e53bfba56850cdfd Mon Sep 17 00:00:00 2001
From: Alasdair Armstrong
Date: Thu, 14 Dec 2017 16:02:18 +0000
Subject: Fix all compiler warning except in lem pretty printer and
 monomorphisation

---
 src/spec_analysis.ml | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/spec_analysis.ml')

diff --git a/src/spec_analysis.ml b/src/spec_analysis.ml
index 7386e9fa..81296027 100644
--- a/src/spec_analysis.ml
+++ b/src/spec_analysis.ml
@@ -577,6 +577,10 @@ let fv_of_def consider_var consider_scatter_as_one all_defs = function
   | DEF_fixity _ -> mt,mt
   | DEF_overload (id,ids) -> init_env (string_of_id id), List.fold_left (fun ns id -> Nameset.add (string_of_id id) ns) mt ids
   | DEF_default def -> mt,mt
+  | DEF_internal_mutrec fdefs ->
+     let fvs = List.map (fv_of_fun consider_var) fdefs in
+     List.fold_left Nameset.union Nameset.empty (List.map fst fvs),
+     List.fold_left Nameset.union Nameset.empty (List.map snd fvs)
   | DEF_scattered sdef -> fv_of_scattered consider_var consider_scatter_as_one all_defs sdef
   | DEF_reg_dec rdec -> fv_of_rd consider_var rdec
   | DEF_comm _ -> mt,mt
-- 
cgit v1.2.3