X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Flogger.ml;h=2f6e6c7e897c6ae59a0abc26b6bdf4bc10154059;hb=96e2e786eb8c229d9aa4676a7067fd2f0d2e4da9;hp=e99fd1f73d7bb5b863195f0736cff7a7b0c3bc86;hpb=31f256a6c02a9c5ce2f8b1117738ff5bc818dc60;p=SXSI%2Fxpathcomp.git

diff --git a/src/logger.ml b/src/logger.ml
index e99fd1f..2f6e6c7 100644
--- a/src/logger.ml
+++ b/src/logger.ml
@@ -40,18 +40,11 @@ let log t l fmt =
     ifprintf !logger_output fmt
 
 let print ppf fmt =
-  kfprintf (fun _ ->
-    fprintf ppf "@?")
-    ppf fmt
+  fprintf ppf fmt
 
 let _verbose = ref false
 let set_verbose b = _verbose := b
 let verbose ppf fmt =
-  if !_verbose then begin
-    kfprintf (fun _ ->
-      fprintf ppf "@?")
-      ppf fmt
-  end else 
-  ikfprintf (fun _ ->
-    fprintf ppf "@?")
-    ppf fmt
+  if !_verbose
+  then fprintf ppf fmt
+  else ifprintf ppf fmt