fix

[helm.git] / helm / matita / matitaMathView.ml

diff --git a/helm/matita/matitaMathView.ml b/helm/matita/matitaMathView.ml
index a7299879a3a3292ab31785e0e7a558a74a4599c1..bf0f7f8bdc85a106dec3a3ce5cf769073c685fd0 100644 (file)
--- a/helm/matita/matitaMathView.ml
+++ b/helm/matita/matitaMathView.ml
@@ -154,7 +154,7 @@ type selected_term =
 
 class clickableMathView obj =
 let text_width = 80 in
-let dummy_loc = DisambiguateTypes.dummy_floc in
+let dummy_loc = HExtlib.dummy_floc in
 object (self)
   inherit GMathViewAux.multi_selection_math_view obj
 
@@ -244,13 +244,13 @@ object (self)
     let reduction_action kind () =
       let pat = self#tactic_text_pattern_of_selection in
       let statement =
-        let loc = DisambiguateTypes.dummy_floc in
+        let loc = HExtlib.dummy_floc in
+        "\n" ^
         GrafiteAstPp.pp_executable ~term_pp:(fun s -> s)
           ~lazy_term_pp:(fun _ -> assert false) ~obj_pp:(fun _ -> assert false)
           (GrafiteAst.Tactical (loc,
             GrafiteAst.Tactic (loc, GrafiteAst.Reduce (loc, kind, pat)),
             Some (GrafiteAst.Semicolon loc))) in
-      HLog.debug ("soon I'll evaluate: " ^ statement);
       (MatitaScript.current ())#advance ~statement () in
     connect_menu_item copy gui#copy;
     connect_menu_item normalize (reduction_action `Normalize);
@@ -906,7 +906,7 @@ class cicBrowser_impl ~(history:MatitaTypes.mathViewer_entry MatitaMisc.history)
 
     method private home () =
       self#_showMath;
-      match self#script#status.proof_status with
+      match self#script#grafite_status.proof_status with
       | Proof  (uri, metasenv, bo, ty) ->
           let name = UriManager.name_of_uri (HExtlib.unopt uri) in
           let obj = Cic.CurrentProof (name, metasenv, bo, ty, [], []) in