MQueryGenerator ported to use fun "objectName"

topLevel        typechecker output was removed

diff --git a/helm/gTopLevel/mQueryGenerator.ml b/helm/gTopLevel/mQueryGenerator.ml
index 4deaf8c7a23d8923828a75977f35c9a36b394b31..9f52c2f20a8f25661d1b6ba403bfdc5d1359c9e7 100644 (file)
--- a/helm/gTopLevel/mQueryGenerator.ml
+++ b/helm/gTopLevel/mQueryGenerator.ml
@@ -185,7 +185,7 @@ let execute_query query =
 
 let locate s =
    let module M = MathQL in
-   let q = M.Ref (M.Fun "reference" (M.Const [s])) in
+   let q = M.Ref (M.Fun "objectName" (M.Const [s])) in
    execute_query q
 
 let backward e c t level =

diff --git a/helm/gTopLevel/topLevel/topLevel.ml b/helm/gTopLevel/topLevel/topLevel.ml
index d53ea70eaf5096cb4a015266a0d58fa958bca7c9..6db896d9bd809e9c8d3b66133e7630c3ea5ee13f 100644 (file)
--- a/helm/gTopLevel/topLevel/topLevel.ml
+++ b/helm/gTopLevel/topLevel/topLevel.ml
@@ -196,7 +196,7 @@ let _ =
    CicCooking.init () ; 
    Logger.log_callback :=
       (Logger.log_to_html
-      ~print_and_flush:(function s -> print_string s ; flush stdout)) ;
+      ~print_and_flush:(function s -> () (* print_string s ; flush stdout *) ));
    Mqint.set_stat false;
    Gen.set_log_file "MQGenLog.htm";
    set_dbms 1;