From d2f0b8dd4cb352d95f682c8aea04063ef8e0a973 Mon Sep 17 00:00:00 2001 From: herbelin Date: Mon, 7 Apr 2003 08:32:40 +0000 Subject: Utilisation de CAppExpl au lieu de CRef pour les hints pour qu'aucun implicite ne s'insére pour les références dont tous les arguments sont implicites git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3847 85f007b7-540e-0410-9357-904b9bb8a0f7 --- translate/ppvernacnew.ml | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'translate') diff --git a/translate/ppvernacnew.ml b/translate/ppvernacnew.ml index e6b306be2e..de0abed002 100644 --- a/translate/ppvernacnew.ml +++ b/translate/ppvernacnew.ml @@ -112,10 +112,10 @@ let pr_printoption a b = match a with let pr_set_option a b = let pr_opt_value = function - | IntValue n -> int n - | StringValue s -> str s + | IntValue n -> spc() ++ int n + | StringValue s -> spc() ++ str s | BoolValue b -> mt() - in pr_printoption a None ++ spc() ++ pr_opt_value b + in pr_printoption a None ++ pr_opt_value b let pr_topcmd _ = str"(* : No printer for toplevel commands *)" @@ -135,7 +135,7 @@ let pr_hints db h pr_c = | Some name,_ -> (true , pr_id name) in let opth = pr_opt_hintbases db in let pr_aux = function - | CRef qid -> pr_reference qid + | CAppExpl (_,qid,[]) -> pr_reference qid | _ -> mt () in match h with | HintsResolve l -> -- cgit v1.2.3