X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2FmatitaGui.ml;h=fde6ba1ae2d9abde9b6a2b13bd6cfab1217d8065;hb=dd64c9ca57beaa3c117fe50f396b982d7ff26dae;hp=2d5d8fa0a70d802baffa0f131dbb6ecc9c7fce7c;hpb=0098ba116b41b7fe07532482de5a1c86f1fbf926;p=helm.git diff --git a/matita/matitaGui.ml b/matita/matitaGui.ml index 2d5d8fa0a..fde6ba1ae 100644 --- a/matita/matitaGui.ml +++ b/matita/matitaGui.ml @@ -783,8 +783,8 @@ class gui () = notify_exn exc; unlock_world () in - thread_main (); - (* worker_thread := Some (Thread.create thread_main ()) *) + (*thread_main ();*) + worker_thread := Some (Thread.create thread_main ()) in let kill_worker = (* the following lines are from Xavier Leroy: http://alan.petitepomme.net/cwn/2005.11.08.html *)