src/Pure/PIDE/command.ML
changeset 73761 ef1a18e20ace
parent 73566 4e6b31ed7197
child 74166 ff3dbb2be924
equal deleted inserted replaced
73760:f4be1b0d7a51 73761:ef1a18e20ace
   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 =