diff options
author | 2003-04-07 08:32:40 +0000 | |
---|---|---|
committer | 2003-04-07 08:32:40 +0000 | |
commit | d2f0b8dd4cb352d95f682c8aea04063ef8e0a973 (patch) | |
tree | 89a72dc545207f485dde0a7e5dac8d4ae036776c | |
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
-rw-r--r-- | parsing/g_proofs.ml4 | 6 | ||||
-rw-r--r-- | translate/ppvernacnew.ml | 8 |
2 files changed, 8 insertions, 6 deletions
diff --git a/parsing/g_proofs.ml4 b/parsing/g_proofs.ml4 index f6801bf31..7fba1f279 100644 --- a/parsing/g_proofs.ml4 +++ b/parsing/g_proofs.ml4 @@ -116,9 +116,11 @@ GEXTEND Gram ; hints: [ [ IDENT "Resolve"; l = LIST1 global; dbnames = opt_hintbases -> - (dbnames, HintsResolve (List.map (fun qid -> (None, CRef qid)) l)) + (dbnames, + HintsResolve (List.map (fun qid -> (None, CAppExpl(loc,qid,[]))) l)) | IDENT "Immediate"; l = LIST1 global; dbnames = opt_hintbases -> - (dbnames, HintsImmediate (List.map (fun qid -> (None, CRef qid)) l)) + (dbnames, + HintsImmediate (List.map (fun qid-> (None, CAppExpl (loc,qid,[]))) l)) | IDENT "Unfold"; l = LIST1 global; dbnames = opt_hintbases -> (dbnames, HintsUnfold (List.map (fun qid -> (None,qid)) l)) ] ] ; diff --git a/translate/ppvernacnew.ml b/translate/ppvernacnew.ml index e6b306be2..de0abed00 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 -> |