diff options
| -rw-r--r-- | translate/ppconstrnew.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/translate/ppconstrnew.ml b/translate/ppconstrnew.ml index c30c07c3a6..438c1cc050 100644 --- a/translate/ppconstrnew.ml +++ b/translate/ppconstrnew.ml @@ -390,7 +390,9 @@ let rec pr inherited a = let (strm,prec) = match a with | CRef r -> pr_reference r, latom | CFix (_,id,fix) -> - hov 0 (str "fix " ++ pr_recursive (pr_fixdecl pr) (snd id) fix), + let p = hov 0 (str"fix " ++ pr_recursive (pr_fixdecl pr) (snd id) fix) in + (if List.length fix = 1 & prec_less (fst inherited) ltop + then str"(" ++ p ++ str")" else p), lfix | CCoFix (_,id,cofix) -> hov 0 (str "cofix " ++ pr_recursive (pr_cofixdecl pr) (snd id) cofix), |