Commit 21500d33 authored by Raphael Rieu-Helft's avatar Raphael Rieu-Helft

Fix another erroneous precedence

parent 87246a15
......@@ -545,7 +545,7 @@ module Print = struct
fprintf fmt
(protect_on (opr && prec < 16)
"@[<hv>@[<hv 2>if@ %a@]@ then %a@]")
(print_expr ~opr:false info 15) e1 (print_expr ~be:true info 18) e2
(print_expr ~opr:false info 15) e1 (print_expr ~be:true info 15) e2
| Eif (e1, e2, e3) when is_false e2 && is_true e3 ->
fprintf fmt (protect_on (prec < 4) "not %a")
(print_expr info 3) e1
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment