src/Pure/PIDE/command.ML
changeset 56896 1e3c3df3a77c
parent 56895 f058120aaad4
child 56937 d11d11da0d90
equal deleted inserted replaced
56895:f058120aaad4 56896:1e3c3df3a77c
   224   if malformed then
   224   if malformed then
   225     {failed = true, malformed = malformed, command = tr, state = Toplevel.toplevel}
   225     {failed = true, malformed = malformed, command = tr, state = Toplevel.toplevel}
   226   else
   226   else
   227     let
   227     let
   228       val malformed' = Toplevel.is_malformed tr;
   228       val malformed' = Toplevel.is_malformed tr;
   229       val is_init = Toplevel.is_init tr;
       
   230       val is_proof = Keyword.is_proof (Toplevel.name_of tr);
       
   231 
   229 
   232       val _ = Multithreading.interrupted ();
   230       val _ = Multithreading.interrupted ();
   233       val _ = status tr Markup.running;
   231       val _ = status tr Markup.running;
   234       val (errs1, result) = run (is_init orelse is_proof) tr st;
   232       val (errs1, result) = run true tr st;
   235       val errs2 = (case result of NONE => [] | SOME st' => check_cmts span tr st');
   233       val errs2 = (case result of NONE => [] | SOME st' => check_cmts span tr st');
   236       val errs = errs1 @ errs2;
   234       val errs = errs1 @ errs2;
   237       val _ = List.app (Future.error_message (Toplevel.pos_of tr)) errs;
   235       val _ = List.app (Future.error_message (Toplevel.pos_of tr)) errs;
   238     in
   236     in
   239       (case result of
   237       (case result of