diff options
| author | Pierre-Marie Pédrot | 2013-12-19 20:02:39 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2013-12-19 20:10:23 +0100 |
| commit | 631298df172c1e034d6898ff13d5d5aabb9a5098 (patch) | |
| tree | b43a195fe510f6692aa5b17c48358a630f04cb1b /printing/pptactic.ml | |
| parent | cfeb55070713c8131ca0f95c6c374c624b36a895 (diff) | |
Removing the useless pattern ident genarg.
Diffstat (limited to 'printing/pptactic.ml')
| -rw-r--r-- | printing/pptactic.ml | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/printing/pptactic.ml b/printing/pptactic.ml index cb09784c16..ae3b41e231 100644 --- a/printing/pptactic.ml +++ b/printing/pptactic.ml @@ -141,12 +141,11 @@ let pr_fresh_ids = prlist (fun s -> spc() ++ pr_or_var qs s) let with_evars ev s = if ev then "e" ^ s else s -let if_pattern_ident b pr c = (if b then str "?" else mt()) ++ pr c let rec pr_raw_generic prc prlc prtac prpat prref (x:Genarg.rlevel Genarg.generic_argument) = match Genarg.genarg_tag x with | IntOrVarArgType -> pr_or_var int (out_gen (rawwit wit_int_or_var) x) - | IdentArgType b -> if_pattern_ident b pr_id (out_gen (rawwit wit_ident) x) + | IdentArgType -> pr_id (out_gen (rawwit wit_ident) x) | VarArgType -> pr_located pr_id (out_gen (rawwit wit_var) x) | GenArgType -> pr_raw_generic prc prlc prtac prpat prref (out_gen (rawwit wit_genarg) x) | ConstrArgType -> prc (out_gen (rawwit wit_constr) x) @@ -180,7 +179,7 @@ let rec pr_raw_generic prc prlc prtac prpat prref (x:Genarg.rlevel Genarg.generi let rec pr_glb_generic prc prlc prtac prpat x = match Genarg.genarg_tag x with | IntOrVarArgType -> pr_or_var int (out_gen (glbwit wit_int_or_var) x) - | IdentArgType b -> if_pattern_ident b pr_id (out_gen (glbwit wit_ident) x) + | IdentArgType -> pr_id (out_gen (glbwit wit_ident) x) | VarArgType -> pr_located pr_id (out_gen (glbwit wit_var) x) | GenArgType -> pr_glb_generic prc prlc prtac prpat (out_gen (glbwit wit_genarg) x) | ConstrArgType -> prc (out_gen (glbwit wit_constr) x) @@ -215,7 +214,7 @@ let rec pr_glb_generic prc prlc prtac prpat x = let rec pr_top_generic prc prlc prtac prpat x = match Genarg.genarg_tag x with | IntOrVarArgType -> pr_or_var int (out_gen (topwit wit_int_or_var) x) - | IdentArgType b -> if_pattern_ident b pr_id (out_gen (topwit wit_ident) x) + | IdentArgType -> pr_id (out_gen (topwit wit_ident) x) | VarArgType -> pr_id (out_gen (topwit wit_var) x) | GenArgType -> pr_top_generic prc prlc prtac prpat (out_gen (topwit wit_genarg) x) | ConstrArgType -> prc (out_gen (topwit wit_constr) x) |