more robust: avoid race-condition of terminated vs. consolidated;
authorwenzelm
Sun, 02 Sep 2018 22:54:51 +0200
changeset 68886 1167f2d8a167
parent 68885 17486b8218e2
child 68887 b07735ce02b3
more robust: avoid race-condition of terminated vs. consolidated;
src/Pure/PIDE/command.ML
--- a/src/Pure/PIDE/command.ML	Sun Sep 02 22:34:50 2018 +0200
+++ b/src/Pure/PIDE/command.ML	Sun Sep 02 22:54:51 2018 +0200
@@ -268,11 +268,11 @@
         in {failed = true, command = tr, state = st} end
     | SOME st' =>
         let
-          val _ = status tr Markup.finished;
           val _ =
             if Keyword.is_theory_end keywords (Toplevel.name_of tr) andalso
               can (Toplevel.end_theory Position.none) st'
             then status tr Markup.finalized else ();
+          val _ = status tr Markup.finished;
         in {failed = false, command = tr, state = st'} end)
   end;