diff options
| author | msozeau | 2012-10-31 17:10:23 +0000 |
|---|---|---|
| committer | msozeau | 2012-10-31 17:10:23 +0000 |
| commit | d97cd41db7786ee5172bb00fa2efd1c25ce44a4e (patch) | |
| tree | 3e369e1b1263f5b252633eeb6dc99003ee0357ec /printing/ppvernac.ml | |
| parent | d214946779d440a2cca8053bd52f35ac748f2823 (diff) | |
Change [Hints Resolve] to still accept constrs as arguments
to maintain compatibility, the term is then declared as a constant internally.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15948 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'printing/ppvernac.ml')
| -rw-r--r-- | printing/ppvernac.ml | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/printing/ppvernac.ml b/printing/ppvernac.ml index 8d763c2d1f..4765045499 100644 --- a/printing/ppvernac.ml +++ b/printing/ppvernac.ml @@ -179,17 +179,21 @@ let pr_opt_hintbases l = match l with | [] -> mt() | _ as z -> str":" ++ spc() ++ prlist_with_sep sep str z +let pr_reference_or_constr pr_c = function + | HintsReference r -> pr_reference r + | HintsConstr c -> pr_c c + let pr_hints local db h pr_c pr_pat = let opth = pr_opt_hintbases db in let pph = match h with | HintsResolve l -> str "Resolve " ++ prlist_with_sep sep - (fun (pri, _, c) -> pr_reference c ++ + (fun (pri, _, c) -> pr_reference_or_constr pr_c c ++ match pri with Some x -> spc () ++ str"(" ++ int x ++ str")" | None -> mt ()) l | HintsImmediate l -> - str"Immediate" ++ spc() ++ prlist_with_sep sep pr_reference l + str"Immediate" ++ spc() ++ prlist_with_sep sep (pr_reference_or_constr pr_c) l | HintsUnfold l -> str "Unfold " ++ prlist_with_sep sep pr_reference l | HintsTransparency (l, b) -> |