X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2FmatitaScript.ml;h=79c4fc4c57136cb884940ceae897768587613ae5;hb=43a618149e49298eee810029141e2c19762a76dd;hp=a6842d832e2076251a7a14fdf82631b51e11d319;hpb=805644c92f4e1a8750be9ba088a8c242d28042c9;p=helm.git

diff --git a/matita/matitaScript.ml b/matita/matitaScript.ml
index a6842d832..79c4fc4c5 100644
--- a/matita/matitaScript.ml
+++ b/matita/matitaScript.ml
@@ -288,9 +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"
-  | TA.Print (_,kind) -> failwith "not implemented"
                                 
 and eval_executable include_paths (buffer : GText.buffer) guistuff
 lexicon_status grafite_status user_goal unparsed_text skipped_txt nonskipped_txt