diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2018-02-12 09:59:16 +0100 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2018-02-12 09:59:16 +0100 |
commit | 4fb4f1adf18648b4fb561986379e033b00423148 (patch) | |
tree | 876f561f9310b9e15f3ac20ca71f9dd28f90b157 /printing | |
parent | 349944eb8e3abd51dc2b94051a887253a2ae9198 (diff) | |
parent | de988641848ecb26f749fbc3f50ce9194db46a4c (diff) |
Merge PR #6651: Use r.(p) syntax to print primitive projections.
Diffstat (limited to 'printing')
-rw-r--r-- | printing/ppconstr.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/printing/ppconstr.ml b/printing/ppconstr.ml index 51735bc9e..1146b42a0 100644 --- a/printing/ppconstr.ml +++ b/printing/ppconstr.ml @@ -732,6 +732,9 @@ 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 |