diff options
| author | Pierre-Marie Pédrot | 2016-11-30 23:08:19 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2017-05-03 20:05:57 +0200 |
| commit | 9262f440e8d8b8559c5488b1333c023f7305d811 (patch) | |
| tree | f09ec49bd38357d949876ca4e494fe22ff2b6a0c /tactics | |
| parent | 267c880c5e8b73770316518a2a820e779c121fdb (diff) | |
Allowing to pass arbitrary data in internalization environments.
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/autorewrite.ml | 2 | ||||
| -rw-r--r-- | tactics/hints.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/tactics/autorewrite.ml b/tactics/autorewrite.ml index e58ec5a31f..900c8cc6fc 100644 --- a/tactics/autorewrite.ml +++ b/tactics/autorewrite.ml @@ -305,7 +305,7 @@ let add_rew_rules base lrul = let counter = ref 0 in let env = Global.env () in let sigma = Evd.from_env env in - let ist = { Genintern.ltacvars = Id.Set.empty; genv = Global.env () } in + let ist = Genintern.empty_glob_sign (Global.env ()) in let intern tac = snd (Genintern.generic_intern ist tac) in let lrul = List.fold_left diff --git a/tactics/hints.ml b/tactics/hints.ml index c5bacc5a20..aba04f30b1 100644 --- a/tactics/hints.ml +++ b/tactics/hints.ml @@ -1317,7 +1317,7 @@ let interp_hints poly = let pat = Option.map fp patcom in let l = match pat with None -> [] | Some (l, _) -> l in let ltacvars = List.fold_left (fun accu x -> Id.Set.add x accu) Id.Set.empty l in - let env = Genintern.({ genv = env; ltacvars }) in + let env = Genintern.({ (empty_glob_sign env) with ltacvars }) in let _, tacexp = Genintern.generic_intern env tacexp in HintsExternEntry ({ hint_priority = Some pri; hint_pattern = pat }, tacexp) |