HelmLogger logging function connected to MathQL Interpreter logger function.

[helm.git] / helm / gTopLevel / regtest.ml

diff --git a/helm/gTopLevel/regtest.ml b/helm/gTopLevel/regtest.ml
index d90371759b21e98e10f2bcab460aa6272f202c0d..c6b598151b2127babf3df6f449274fe41c857caa 100644 (file)
--- a/helm/gTopLevel/regtest.ml
+++ b/helm/gTopLevel/regtest.ml
@@ -339,7 +339,8 @@ let _ =
     (if append_NL then prerr_endline else prerr_string)
       (HelmLogger.string_of_html_msg msg));
  
- let mqi_debug_fun = ignore in
+ let mqi_debug_fun s =
+  HelmLogger.log ~append_NL:true (`Msg (`T s)) in
  let mqi_handle = MQIConn.init ~log:mqi_debug_fun () in
  
  let fnames = ref [] in