diff options
| -rw-r--r-- | printing/pptactic.ml | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/printing/pptactic.ml b/printing/pptactic.ml index 6f891c5f80..4777585516 100644 --- a/printing/pptactic.ml +++ b/printing/pptactic.ml @@ -250,8 +250,10 @@ module Make | NoBindings -> mt () let pr_clear_flag clear_flag pp x = - (match clear_flag with Some false -> str "!" | Some true -> str ">" | None -> mt()) - ++ pp x + match clear_flag with + | Some false -> surround (pp x) + | Some true -> str ">" ++ pp x + | None -> pp x let pr_with_bindings prc prlc (c,bl) = prc c ++ pr_bindings prc prlc bl |