diff options
| author | herbelin | 2003-04-07 08:32:40 +0000 |
|---|---|---|
| committer | herbelin | 2003-04-07 08:32:40 +0000 |
| commit | d2f0b8dd4cb352d95f682c8aea04063ef8e0a973 (patch) | |
| tree | 89a72dc545207f485dde0a7e5dac8d4ae036776c /translate | |
| parent | d6405bd4b54465d2f1c259a6a0ea4bfe934e5a0c (diff) | |
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
Diffstat (limited to 'translate')
| -rw-r--r-- | translate/ppvernacnew.ml | 8 |
1 files changed, 4 insertions, 4 deletions
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"(* <Warning> : 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 -> |