equal
deleted
inserted
replaced
277 (case Document.command_exec (Document.state ()) node_name id of |
277 (case Document.command_exec (Document.state ()) node_name id of |
278 SOME (eval, _) => |
278 SOME (eval, _) => |
279 if Command.eval_finished eval then |
279 if Command.eval_finished eval then |
280 let |
280 let |
281 val st = Command.eval_result_state eval; |
281 val st = Command.eval_result_state eval; |
282 val ctxt = Toplevel.presentation_context st |
282 val ctxt = Toplevel.presentation_context st; |
283 handle Toplevel.UNDEF => err (); |
|
284 in |
283 in |
285 (case ML_Env.get_breakpoint (Context.Proof ctxt) breakpoint of |
284 (case ML_Env.get_breakpoint (Context.Proof ctxt) breakpoint of |
286 SOME (b, _) => b := breakpoint_state |
285 SOME (b, _) => b := breakpoint_state |
287 | NONE => err ()) |
286 | NONE => err ()) |
288 end |
287 end |