diff options
| author | Emilio Jesus Gallego Arias | 2018-10-11 21:55:39 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2018-10-11 21:55:39 +0200 |
| commit | b6392038bb9e0a93b789632db351b4e8c0f116cf (patch) | |
| tree | f55d750130b9c8ee9b23deafd2cbf55ce097bbc1 /printing/ppconstr.ml | |
| parent | 798ec1e76e21582735632927271818153169ced7 (diff) | |
| parent | 74f8e4b04f59c79fc2320b63f7d8c0cb4de69e2b (diff) | |
Merge PR #8680: Check that lambda/prod ast's have proper binders during interning/printing
Diffstat (limited to 'printing/ppconstr.ml')
| -rw-r--r-- | printing/ppconstr.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/printing/ppconstr.ml b/printing/ppconstr.ml index e7f995c84e..6d53349fa1 100644 --- a/printing/ppconstr.ml +++ b/printing/ppconstr.ml @@ -394,7 +394,7 @@ let tag_var = tag Tag.variable kw n ++ pr_binder false pr_c (nal,k,t) | (CLocalAssum _ | CLocalPattern _ | CLocalDef _) :: _ as bdl -> kw n ++ pr_undelimited_binders sep pr_c bdl - | [] -> assert false + | [] -> anomaly (Pp.str "The ast is malformed, found lambda/prod without proper binders.") let pr_binders_gen pr_c sep is_open = if is_open then pr_delimited_binders pr_com_at sep pr_c |