diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-04-16 22:05:09 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-04-27 21:55:46 +0200 |
| commit | d408e09e5366899f4313f433cc9507ea92458c49 (patch) | |
| tree | f255d3ea3d7d40d893577f356a9495ee4c8c9651 | |
| parent | 6da8866a4fd79029b22bd1bf7cde6725a9ea259c (diff) | |
Fixing printing of keeping hyp on the fly.
| -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 6f891c5f8..477758551 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 |