X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=matita%2FmatitaScript.ml;h=79c4fc4c57136cb884940ceae897768587613ae5;hb=7bac8af3711810b6d6ade5134eda2f62bf6b0ba3;hp=91182d6ad44aa1aa0ed0dac991d101889eb82035;hpb=6188c48d0ccbe5d8b7dbae9b8ff6de5bf984efa4;p=helm.git

diff --git a/matita/matitaScript.ml b/matita/matitaScript.ml
index 91182d6ad..79c4fc4c5 100644
--- a/matita/matitaScript.ml
+++ b/matita/matitaScript.ml
@@ -288,8 +288,6 @@ let rec eval_macro include_paths (buffer : GText.buffer) guistuff lexicon_status
       let t_and_ty = Cic.Cast (term,ty) in
       guistuff.mathviewer#show_entry (`Cic (t_and_ty,metasenv));
       [], parsed_text_length
-  (* TODO *)
-  | TA.Quit _ -> failwith "not implemented"
                                 
 and eval_executable include_paths (buffer : GText.buffer) guistuff
 lexicon_status grafite_status user_goal unparsed_text skipped_txt nonskipped_txt