diff options
| author | Brian Campbell | 2017-10-23 16:01:38 +0100 |
|---|---|---|
| committer | Brian Campbell | 2017-10-23 16:01:38 +0100 |
| commit | fd21c0ca241418775d905184a6d619ddb11cafa3 (patch) | |
| tree | 8ac787347b4f7942424d0d1db2722c9b493c5422 /src/spec_analysis.ml | |
| parent | f96323c57a1a1c1d6f11f2c85c9bb88c4de92ee8 (diff) | |
| parent | 74b6c74b7407f7141796cb109c750f86659d1d2d (diff) | |
Merge branch 'experiments' into mono-experiments
Diffstat (limited to 'src/spec_analysis.ml')
| -rw-r--r-- | src/spec_analysis.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/spec_analysis.ml b/src/spec_analysis.ml index 2e368c53..c896f07a 100644 --- a/src/spec_analysis.ml +++ b/src/spec_analysis.ml @@ -534,6 +534,7 @@ let fv_of_def consider_var consider_scatter_as_one all_defs = function | DEF_fundef fdef -> fv_of_fun consider_var fdef | DEF_val lebind -> ((fun (b,u,_) -> (b,u)) (fv_of_let consider_var mt mt mt lebind)) | DEF_spec vspec -> fv_of_vspec consider_var vspec + | 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_scattered sdef -> fv_of_scattered consider_var consider_scatter_as_one all_defs sdef |