diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-10-17 15:44:59 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-10-17 15:44:59 +0000 |
| commit | c68eca79f7c86703cd468721dcd5288b60c281f7 (patch) | |
| tree | da743d6f1d3553815e23c516f90c5c8dd2bd6916 /parsing | |
| parent | 4d59064fea0a00d65b39c05b031f8adecc0b4778 (diff) | |
Traduction des idents aussi dans le printer generique des tactiques
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4664 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/pptactic.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/parsing/pptactic.ml b/parsing/pptactic.ml index 968415de1..b09f0359c 100644 --- a/parsing/pptactic.ml +++ b/parsing/pptactic.ml @@ -237,7 +237,7 @@ let rec pr_raw_generic prc prlc prtac prref x = | IntOrVarArgType -> pr_arg (pr_or_var pr_int) (out_gen rawwit_int_or_var x) | StringArgType -> spc () ++ str "\"" ++ str (out_gen rawwit_string x) ++ str "\"" | PreIdentArgType -> pr_arg str (out_gen rawwit_pre_ident x) - | IdentArgType -> pr_arg pr_id (out_gen rawwit_ident x) + | IdentArgType -> pr_arg pr_id (Constrextern.v7_to_v8_id (out_gen rawwit_ident x)) | RefArgType -> pr_arg prref (out_gen rawwit_ref x) | SortArgType -> pr_arg pr_sort (out_gen rawwit_sort x) | ConstrArgType -> pr_arg prc (out_gen rawwit_constr x) @@ -280,7 +280,7 @@ let rec pr_glob_generic prc prlc prtac x = | IntOrVarArgType -> pr_arg (pr_or_var pr_int) (out_gen globwit_int_or_var x) | StringArgType -> spc () ++ str "\"" ++ str (out_gen globwit_string x) ++ str "\"" | PreIdentArgType -> pr_arg str (out_gen globwit_pre_ident x) - | IdentArgType -> pr_arg pr_id (out_gen globwit_ident x) + | IdentArgType -> pr_arg pr_id (Constrextern.v7_to_v8_id (out_gen globwit_ident x)) | RefArgType -> pr_arg (pr_or_var (pr_located pr_global)) (out_gen globwit_ref x) | SortArgType -> pr_arg pr_sort (out_gen globwit_sort x) | ConstrArgType -> pr_arg prc (out_gen globwit_constr x) @@ -324,7 +324,7 @@ let rec pr_generic prc prlc prtac x = | IntOrVarArgType -> pr_arg (pr_or_var pr_int) (out_gen wit_int_or_var x) | StringArgType -> spc () ++ str "\"" ++ str (out_gen wit_string x) ++ str "\"" | PreIdentArgType -> pr_arg str (out_gen wit_pre_ident x) - | IdentArgType -> pr_arg pr_id (out_gen wit_ident x) + | IdentArgType -> pr_arg pr_id (Constrextern.v7_to_v8_id (out_gen wit_ident x)) | RefArgType -> pr_arg pr_global (out_gen wit_ref x) | SortArgType -> pr_arg prc (Term.mkSort (out_gen wit_sort x)) | ConstrArgType -> pr_arg prc (out_gen wit_constr x) |