X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=src%2Flogger.ml;fp=src%2Flogger.ml;h=e99fd1f73d7bb5b863195f0736cff7a7b0c3bc86;hb=1e6a2cc1fe6d69d45a4605aaf2ee6821a610a231;hp=c213b43bda4d07a35b139d91c5a0f02beab012e9;hpb=28e780c2b3b259a8696a44be932572b91f69583c;p=SXSI%2Fxpathcomp.git

diff --git a/src/logger.ml b/src/logger.ml
index c213b43..e99fd1f 100644
--- a/src/logger.ml
+++ b/src/logger.ml
@@ -40,9 +40,7 @@ let log t l fmt =
     ifprintf !logger_output fmt
 
 let print ppf fmt =
-  pp_open_hovbox ppf 0;
   kfprintf (fun _ ->
-    pp_close_box ppf ();
     fprintf ppf "@?")
     ppf fmt
 
@@ -50,13 +48,10 @@ let _verbose = ref false
 let set_verbose b = _verbose := b
 let verbose ppf fmt =
   if !_verbose then begin
-    pp_open_hovbox ppf 0;
     kfprintf (fun _ ->
-      pp_close_box ppf ();
       fprintf ppf "@?")
       ppf fmt
   end else 
   ikfprintf (fun _ ->
-    pp_close_box ppf ();
     fprintf ppf "@?")
     ppf fmt