diff options
| author | Hugo Herbelin | 2014-08-07 12:24:29 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2014-08-12 13:37:07 +0200 |
| commit | c48ade3f0d6324872d292932e797ffd718ad57d9 (patch) | |
| tree | 8437ef0e8f366c0df9dcef5e0189cf075739e7c4 /printing/ppconstr.ml | |
| parent | 519d2b0e5d6b53c2f2a02ee9b685088fd74be0f6 (diff) | |
A couple of fixes/improvements in -beautify, but backtracking on
change of printing format of forall (need more thinking).
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 b38cfa664c..fb40e90d36 100644 --- a/printing/ppconstr.ml +++ b/printing/ppconstr.ml @@ -451,7 +451,7 @@ let pr pr sep inherited a = lfix | CProdN _ -> let (bl,a) = extract_prod_binders a in - hov 2 ( + hov 0 ( hov 2 (pr_delimited_binders pr_forall spc (pr mt ltop) bl) ++ str "," ++ pr spc ltop a), |