diff options
author | 2016-11-22 16:35:15 +0100 | |
---|---|---|
committer | 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 222565020..1223f6eb4 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 |