diff options
| author | msozeau | 2012-10-26 01:29:33 +0000 |
|---|---|---|
| committer | msozeau | 2012-10-26 01:29:33 +0000 |
| commit | 0919391f43729bf172ab00c8dec9438a0a9f59ab (patch) | |
| tree | 8afd08a9df68b58711da31a14bd2e8ec23b359ba /printing | |
| parent | 42bb029c878666a7a897ff615acdc60e7f67dd06 (diff) | |
Change Hint Resolve, Immediate to take a global reference as argument
instead of a general constr: this is the most common case and does
not loose generality (one can simply define constrs before Hint Resolving
them). Benefits:
- Natural semantics for typeclasses, not class resolution needed at
Hint Resolve time, meaning less trouble for users as well.
- Ability to [Hint Remove] any hint so declared.
- Simplifies the implementation as well.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15930 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/ppvernac.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/printing/ppvernac.ml b/printing/ppvernac.ml index 2df8b8ce53..b914e38775 100644 --- a/printing/ppvernac.ml +++ b/printing/ppvernac.ml @@ -185,11 +185,11 @@ let pr_hints local db h pr_c pr_pat = match h with | HintsResolve l -> str "Resolve " ++ prlist_with_sep sep - (fun (pri, _, c) -> pr_c c ++ + (fun (pri, _, c) -> pr_reference c ++ match pri with Some x -> spc () ++ str"(" ++ int x ++ str")" | None -> mt ()) l | HintsImmediate l -> - str"Immediate" ++ spc() ++ prlist_with_sep sep pr_c l + str"Immediate" ++ spc() ++ prlist_with_sep sep pr_reference l | HintsUnfold l -> str "Unfold " ++ prlist_with_sep sep pr_reference l | HintsTransparency (l, b) -> |