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/hints.ml | |
parent | 2f75922ad52e334b7bcc3a26c2ecb1602c85fc2f (diff) | |
parent | 19dce55540ba6b8bff2cf14073ff4112cb5d4ff2 (diff) |
Merge PR#608: Allow Ltac2 as a plugin
Diffstat (limited to 'tactics/hints.ml')
-rw-r--r-- | tactics/hints.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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) |