]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/cicMathView.ml
Useless code removed.
[helm.git] / matita / matita / cicMathView.ml
index 02908dfd7303b56ec2986a273c5330f83e1f1d0a..19ac7da5c349121e25cec6ca33e8f18387c04dae 100644 (file)
@@ -30,7 +30,7 @@ open MatitaGtkMisc
 open MatitaGuiTypes
 open GtkSourceView2
 
-let matita_script_current = ref (fun _ -> (assert false : < advance: ?statement:string -> unit -> unit; grafite_status: GrafiteTypes.status; setGoal: int option -> unit >));;
+let matita_script_current = ref (fun _ -> (assert false : < advance: ?statement:string -> unit -> unit; grafite_status: GrafiteTypes.status >));;
 let register_matita_script_current f = matita_script_current := f;;
 let get_matita_script_current () = !matita_script_current ();;