more robust: include reports from Thy_Output.present_thy/output_document;
authorwenzelm
Wed, 25 Nov 2020 17:49:09 +0100
changeset 72946 6bc199a70bf9
parent 72945 cb9d5af781b4
child 72947 9e89c2e15d36
more robust: include reports from Thy_Output.present_thy/output_document;
src/Pure/Thy/thy_info.ML
--- a/src/Pure/Thy/thy_info.ML	Wed Nov 25 16:14:16 2020 +0100
+++ b/src/Pure/Thy/thy_info.ML	Wed Nov 25 17:49:09 2020 +0100
@@ -56,13 +56,13 @@
 );
 
 fun apply_presentation (context: presentation_context) thy =
-  ignore (Presentation.get thy |> Par_List.map (fn (f, _) => f context thy));
+ (ignore (Par_List.map (fn (f, _) => f context thy (Presentation.get thy)));
+  Output.try_protocol_message (Markup.finished_theory (Context.theory_long_name thy)) []);
 
 fun add_presentation f = Presentation.map (cons (f, stamp ()));
 
 val _ =
   Theory.setup (add_presentation (fn {options, file_pos, segments, ...} => fn thy =>
-   (Output.try_protocol_message (Markup.finished_theory (Context.theory_long_name thy)) [];
     if exists (Toplevel.is_skipped_proof o #state) segments then ()
     else
       let
@@ -77,7 +77,7 @@
             val latex = Latex.isabelle_body thy_name body;
             val output = [Latex.output_text latex, Latex.output_positions file_pos latex];
           in Export.export thy document_tex_name (XML.blob output) end
-      end)));
+      end));