diff options
| author | Guillaume Melquiond | 2016-11-22 16:35:15 +0100 |
|---|---|---|
| committer | Guillaume Melquiond | 2016-11-22 16:35:15 +0100 |
| commit | 88b2eb9279bf5f83f27057094de5b696ee9916e3 (patch) | |
| tree | 8c8aaad371d70d6987e58c18750afdac01d08216 | |
| parent | 1559f734060e49fe09d7221f63dd66e8e7d565a4 (diff) | |
Fix locality of "Hint Resolve <->" (bug #5189).
"Hint Resolve <->" now behaves the same as "Hint Resolve", in that it uses
the same default locality and it accepts locality prefixes.
| -rw-r--r-- | ltac/extratactics.ml4 | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ltac/extratactics.ml4 b/ltac/extratactics.ml4 index 2225650204..1223f6eb4b 100644 --- a/ltac/extratactics.ml4 +++ b/ltac/extratactics.ml4 @@ -319,7 +319,8 @@ let project_hint pri l2r r = (info,false,true,Hints.PathAny, Hints.IsGlobRef (Globnames.ConstRef c)) let add_hints_iff l2r lc n bl = - Hints.add_hints true bl + let l = Locality.LocalityFixme.consume () in + Hints.add_hints (Locality.make_module_locality l) bl (Hints.HintsResolveEntry (List.map (project_hint n l2r) lc)) VERNAC COMMAND EXTEND HintResolveIffLR CLASSIFIED AS SIDEFF |