diff options
| author | Maxime Dénès | 2017-09-13 19:19:57 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2017-09-13 19:19:57 +0200 |
| commit | a86bdf0cae05e46d5f0516f29254aeb72bf08de7 (patch) | |
| tree | f45611447003783c5cc5dde40c3a0e268b08325d /printing | |
| parent | cc94172036789cfef28007f59510b7f17df5d45d (diff) | |
| parent | b9106a956c32e1352fcad5f0138a4e3ddee0474c (diff) | |
Merge PR #981: Miscellaneous fixes for notations
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/ppconstr.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/printing/ppconstr.ml b/printing/ppconstr.ml index 4a103cdd23..37204c2134 100644 --- a/printing/ppconstr.ml +++ b/printing/ppconstr.ml @@ -380,9 +380,9 @@ let tag_var = tag Tag.variable match bl with | [CLocalAssum (nal,k,t)] -> kw n ++ pr_binder false pr_c (nal,k,t) - | (CLocalAssum _ | CLocalPattern _) :: _ as bdl -> + | (CLocalAssum _ | CLocalPattern _ | CLocalDef _) :: _ as bdl -> kw n ++ pr_undelimited_binders sep pr_c bdl - | _ -> assert false + | [] -> assert false let pr_binders_gen pr_c sep is_open = if is_open then pr_delimited_binders pr_com_at sep pr_c |