]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matitaScript.ml
GrafiteAst.Quit (unused) removed.
[helm.git] / matita / matitaScript.ml
index 91182d6ad44aa1aa0ed0dac991d101889eb82035..79c4fc4c57136cb884940ceae897768587613ae5 100644 (file)
@@ -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