diff options
| author | Maxime Dénès | 2017-04-28 11:25:29 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2017-04-28 11:25:29 +0200 |
| commit | 66a68a4329ce199f25184ba8b2d98b4679e7ddae (patch) | |
| tree | ce90c93341c58e82813da8b1a567ce6a3f3ed424 /printing | |
| parent | 0a255f51809e8d29a7239bfbd9fe57a8b2b41705 (diff) | |
| parent | 2ddc9d12bd4616f10245c40bc0c87ae548911809 (diff) | |
Merge PR#531: Fixing bug #5420 and many similar bugs due to the presence of let-ins
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/ppvernac.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/printing/ppvernac.ml b/printing/ppvernac.ml index e4a87739b1..f0c8cd58c1 100644 --- a/printing/ppvernac.ml +++ b/printing/ppvernac.ml @@ -386,13 +386,12 @@ open Decl_kinds ++ pr_opt (fun def -> str":=" ++ brk(1,2) ++ pr_pure_lconstr def) def ++ prlist (pr_decl_notation pr_constr) ntn - let pr_statement head (idpl,(bl,c,guard)) = + let pr_statement head (idpl,(bl,c)) = assert (not (Option.is_empty idpl)); let id, pl = Option.get idpl in hov 2 (head ++ spc() ++ pr_lident id ++ pr_univs pl ++ spc() ++ (match bl with [] -> mt() | _ -> pr_binders bl ++ spc()) ++ - pr_opt (pr_guard_annot pr_lconstr_expr bl) guard ++ str":" ++ pr_spc_lconstr c) let pr_priority = function |