diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2017-05-25 16:03:10 +0200 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2017-05-25 16:03:10 +0200 |
| commit | 48d56f49b1db47f393ef3e0f31d1b22adf497afa (patch) | |
| tree | 19a2ba42ff9bd34f082eebd14883708739e996b4 /tactics | |
| parent | 2f75922ad52e334b7bcc3a26c2ecb1602c85fc2f (diff) | |
| parent | 19dce55540ba6b8bff2cf14073ff4112cb5d4ff2 (diff) | |
Merge PR#608: Allow Ltac2 as a plugin
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 68f72d7ae..de544fe5f 100644 --- a/tactics/autorewrite.ml +++ b/tactics/autorewrite.ml @@ -271,7 +271,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 0c796b886..e6edae7ef 100644 --- a/tactics/hints.ml +++ b/tactics/hints.ml @@ -1316,7 +1316,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) |