diff options
| author | Maxime Dénès | 2017-11-21 13:58:08 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2017-11-21 13:58:08 +0100 |
| commit | b75beb248873db7d9ab8e4a078022b2ed0edcd36 (patch) | |
| tree | 4d2bc9d39c1f6d7c4d00223143f18ae5bad500e5 /interp/implicit_quantifiers.ml | |
| parent | 0e01de69c22a3793855b4c97c50e4514191b19bc (diff) | |
| parent | 094b577f61f105f0a92f3f84d7e739884dd993a7 (diff) | |
Merge PR #6185: [parser] Remove unnecessary statically initialized hook.
Diffstat (limited to 'interp/implicit_quantifiers.ml')
| -rw-r--r-- | interp/implicit_quantifiers.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/interp/implicit_quantifiers.ml b/interp/implicit_quantifiers.ml index a5302b54da..519f2480ba 100644 --- a/interp/implicit_quantifiers.ml +++ b/interp/implicit_quantifiers.ml @@ -94,8 +94,8 @@ let free_vars_of_constr_expr c ?(bound=Id.Set.empty) l = let rec aux bdvars l c = match CAst.(c.v) with | CRef (Ident (loc,id),_) -> found loc id bdvars l | CNotation ("{ _ : _ | _ }", ({ CAst.v = CRef (Ident (_, id),_) } :: _, [], [])) when not (Id.Set.mem id bdvars) -> - Topconstr.fold_constr_expr_with_binders (fun a l -> Id.Set.add a l) aux (Id.Set.add id bdvars) l c - | _ -> Topconstr.fold_constr_expr_with_binders (fun a l -> Id.Set.add a l) aux bdvars l c + Constrexpr_ops.fold_constr_expr_with_binders (fun a l -> Id.Set.add a l) aux (Id.Set.add id bdvars) l c + | _ -> Constrexpr_ops.fold_constr_expr_with_binders (fun a l -> Id.Set.add a l) aux bdvars l c in aux bound l c let ids_of_names l = |