author | wenzelm |
Sat, 17 Feb 2018 16:42:15 +0100 | |
changeset 67643 | b846f7a11fda |
parent 67642 | 10ff1f077119 |
child 67644 | 15c6256709d6 |
--- 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