Dead code removed.

diff --git a/helm/matita/matitaGtkMisc.ml b/helm/matita/matitaGtkMisc.ml
index f5b578ce68579afe08dc6b113b399f318023efb5..553406635aac812e87ba39576f566bbe747f1e08 100644 (file)
--- a/helm/matita/matitaGtkMisc.ml
+++ b/helm/matita/matitaGtkMisc.ml
@@ -393,8 +393,6 @@ let ask_text ~(gui:#gui) ?(title = "") ?(message = "") ?(multiline = false)
   GtkThread.main ();
   (match !result with None -> raise MatitaTypes.Cancel | Some r -> r)
 
-type combo_status = Free of string | Locked of string
-
 let ask_record_choice ~(gui:#gui) ?(title= "") ?(message = "")
   ~fields ~records ()
 =
@@ -417,7 +415,6 @@ let ask_record_choice ~(gui:#gui) ?(title= "") ?(message = "")
   Array.iteri
     (fun i f -> model#easy_append f i toggles.(i))
     fields;
-  let status = Array.map (fun s -> Free s) fields in
   let record_no = ref None in
   let return _ =
     dialog#recordChoiceDialog#destroy ();

diff --git a/helm/matita/matitaMathView.ml b/helm/matita/matitaMathView.ml
index ffbb8d7c06c164fa8584d2698d7cf137911d628c..3c4997aeca09e8437e9c6e9f647543fbae340983 100644 (file)
--- a/helm/matita/matitaMathView.ml
+++ b/helm/matita/matitaMathView.ml
@@ -156,7 +156,6 @@ type selected_term =
 
 class clickableMathView obj =
 let text_width = 80 in
-let dummy_loc = HExtlib.dummy_floc in
 object (self)
   inherit GMathViewAux.multi_selection_math_view obj
 

diff --git a/helm/matita/matitaScript.ml b/helm/matita/matitaScript.ml
index b0be9632df4609e5af5303ccbe5a56e422cb6068..4c53f113bd9d0db4b7707d628a320be84f00dee8 100644 (file)
--- a/helm/matita/matitaScript.ml
+++ b/helm/matita/matitaScript.ml
@@ -80,8 +80,6 @@ let eval_with_engine guistuff lexicon_status grafite_status user_goal
 =
   let module TAPp = GrafiteAstPp in
   let parsed_text_length = String.length parsed_text in
-  let loc, ex = 
-    match st with TA.Executable (loc,ex) -> loc, ex | _ -> assert false in
   let initial_space,parsed_text =
    try
     let pieces = Pcre.extract ~rex:heading_nl_RE' parsed_text in
@@ -91,7 +89,9 @@ let eval_with_engine guistuff lexicon_status grafite_status user_goal
   let inital_space,new_grafite_status,new_lexicon_status,new_status_and_text_list' =
    (* the code commented out adds the "select" command if needed *)
    initial_space,grafite_status,lexicon_status,[] in
-(*    match grafite_status.proof_status with
+(* let loc, ex = 
+    match st with TA.Executable (loc,ex) -> loc, ex | _ -> assert false in
+    match grafite_status.proof_status with
      | Incomplete_proof { stack = stack }
       when not (List.mem user_goal (Continuationals.head_goals stack)) ->
         let grafite_status =