From 4bff0cbf3eaac6ed4cb8670c6096b24ad67a58c0 Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Sat, 16 Apr 2016 22:05:09 +0200
Subject: Fixing printing of keeping hyp on the fly.

---
 printing/pptactic.ml | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/printing/pptactic.ml b/printing/pptactic.ml
index 370e1ac317..cfab1408bb 100644
--- a/printing/pptactic.ml
+++ b/printing/pptactic.ml
@@ -270,8 +270,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
-- 
cgit v1.2.3