diff options
| author | Alasdair Armstrong | 2017-12-14 16:02:18 +0000 |
|---|---|---|
| committer | Alasdair Armstrong | 2017-12-14 16:02:18 +0000 |
| commit | fcb7b8dff4fb0ae308d900b7e53bfba56850cdfd (patch) | |
| tree | 13d6b765858909c8507ac959164080b99ba84256 /src/spec_analysis.ml | |
| parent | e636947dd964eb849cfeff528fe43a85fee7583a (diff) | |
Fix all compiler warning except in lem pretty printer and monomorphisation
Diffstat (limited to 'src/spec_analysis.ml')
| -rw-r--r-- | src/spec_analysis.ml | 4 |
1 files changed, 4 insertions, 0 deletions
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 |