diff options
| author | Abhishek Anand (optiplex7010@home) | 2020-02-20 19:54:37 -0800 |
|---|---|---|
| committer | Hugo Herbelin | 2020-02-23 18:05:31 +0100 |
| commit | dd5a748cbec3abd9a11bbdd3ed4c14497b575fb9 (patch) | |
| tree | a6f703436850008ec09d03c74f45edd6952dcf37 | |
| parent | 38c47ac0626fed51d17bc7513d7dbbd63053016e (diff) | |
bugfix: switched then/else: parens option false (default)=> no parens
| -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 ed54e046fd..6ede663883 100644 --- a/printing/ppconstr.ml +++ b/printing/ppconstr.ml @@ -96,7 +96,7 @@ let tag_var = tag Tag.variable | UnpMetaVar prec as unp :: l -> let c = pop env in let pp2 = aux l in - let pp1 = pr (if parens then prec else LevelLe 0) c in + let pp1 = pr (if parens then LevelLe 0 else prec) c in return unp pp1 pp2 | UnpBinderMetaVar prec as unp :: l -> let c = pop bl in @@ -105,7 +105,7 @@ let tag_var = tag Tag.variable return unp pp1 pp2 | UnpListMetaVar (prec, sl) as unp :: l -> let cl = pop envlist in - let pp1 = prlist_with_sep (fun () -> aux sl) (pr (if parens then prec else LevelLe 0)) cl in + let pp1 = prlist_with_sep (fun () -> aux sl) (pr (if parens then LevelLe 0 else prec)) cl in let pp2 = aux l in return unp pp1 pp2 | UnpBinderListMetaVar (isopen, sl) as unp :: l -> |