clarified apply_transaction: always continue without presentation context;
authorwenzelm
Sat, 17 Feb 2018 16:42:15 +0100
changeset 67643 b846f7a11fda
parent 67642 10ff1f077119
child 67644 15c6256709d6
clarified apply_transaction: always continue without presentation context;
src/Pure/Isar/toplevel.ML
--- a/src/Pure/Isar/toplevel.ML	Sat Feb 17 16:36:40 2018 +0100
+++ b/src/Pure/Isar/toplevel.ML	Sat Feb 17 16:42:15 2018 +0100
@@ -244,7 +244,7 @@
   let
     val cont_node = reset_presentation node;
     val context = cases_node I (Context.Proof o Proof.context_of) cont_node;
-    fun state_error e nd = (State (SOME nd, SOME node), e);
+    fun state_error e nd = (State (SOME nd, SOME cont_node), e);
 
     val (result, err) =
       cont_node