diff options
| author | Hugo Herbelin | 2019-05-22 18:12:36 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2019-05-22 18:12:36 +0200 |
| commit | 5c5bd952e9c28c3acf740fcdced03b2b7145076d (patch) | |
| tree | a56647f099136d571f2f2c6c47ddb31472ef7804 /printing/ppconstr.ml | |
| parent | 4f2e05f5abc19addc25501281b4cd34ed5e33853 (diff) | |
| parent | 28dfb113c19f467fdc2b785d1c5a07a42aefa488 (diff) | |
Merge PR #10177: Fix #10176: shadowing vs automatic class based generalization + cleanups
Reviewed-by: herbelin
Diffstat (limited to 'printing/ppconstr.ml')
| -rw-r--r-- | printing/ppconstr.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/printing/ppconstr.ml b/printing/ppconstr.ml index 78733784a7..9d3ed40f6c 100644 --- a/printing/ppconstr.ml +++ b/printing/ppconstr.ml @@ -339,8 +339,7 @@ let tag_var = tag Tag.variable let pr_binder many pr (nal,k,t) = match k with - | Generalized (b, b', t') -> - assert (match b with Implicit -> true | _ -> false); + | Generalized (b', t') -> begin match nal with |[{loc; v=Anonymous}] -> hov 1 (str"`" ++ (surround_impl b' |