equal
deleted
inserted
replaced
224 (fn () => Toplevel.command_exception int tr1 st); |
224 (fn () => Toplevel.command_exception int tr1 st); |
225 in Toplevel.command_errors int tr2 st end |
225 in Toplevel.command_errors int tr2 st end |
226 else Toplevel.command_errors int tr st; |
226 else Toplevel.command_errors int tr st; |
227 |
227 |
228 fun check_token_comments ctxt tok = |
228 fun check_token_comments ctxt tok = |
229 (Thy_Output.check_comments ctxt (Input.source_explode (Token.input_of tok)); []) |
229 (Document_Output.check_comments ctxt (Input.source_explode (Token.input_of tok)); []) |
230 handle exn => |
230 handle exn => |
231 if Exn.is_interrupt exn then Exn.reraise exn |
231 if Exn.is_interrupt exn then Exn.reraise exn |
232 else Runtime.exn_messages exn; |
232 else Runtime.exn_messages exn; |
233 |
233 |
234 fun check_span_comments ctxt span tr = |
234 fun check_span_comments ctxt span tr = |