From d97cd41db7786ee5172bb00fa2efd1c25ce44a4e Mon Sep 17 00:00:00 2001
From: msozeau
Date: Wed, 31 Oct 2012 17:10:23 +0000
Subject: 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
---
 printing/ppvernac.ml | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'printing')

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) ->
-- 
cgit v1.2.3