diff options
Diffstat (limited to 'printing/ppconstr.ml')
| -rw-r--r-- | printing/ppconstr.ml | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/printing/ppconstr.ml b/printing/ppconstr.ml index 418e13759b..90d2b7abaf 100644 --- a/printing/ppconstr.ml +++ b/printing/ppconstr.ml @@ -675,9 +675,6 @@ let tag_var = tag Tag.variable return (pr_prim_token p, prec_of_prim_token p) | CDelimiters (sc,a) -> return (pr_delimiters sc (pr mt (ldelim,E) a), ldelim) - | CProj (p,c) -> - let p = pr_proj (pr mt) pr_app c (CAst.make (CRef (p,None))) [] in - return (p, lproj) in let loc = constr_loc a in pr_with_comments ?loc |