src/Pure/Tools/debugger.ML
changeset 62902 3c0f53eae166
parent 62891 7a11ea5c9626
child 62923 3a122e1e352a
equal deleted inserted replaced
62901:0951d6cec68c 62902:3c0f53eae166
   133     "Context.put_generic_context (SOME (Context.Proof ML_context))",
   133     "Context.put_generic_context (SOME (Context.Proof ML_context))",
   134     "Context.put_generic_context (SOME ML_context)"];
   134     "Context.put_generic_context (SOME ML_context)"];
   135 
   135 
   136 fun evaluate {SML, verbose} =
   136 fun evaluate {SML, verbose} =
   137   ML_Context.eval
   137   ML_Context.eval
   138     {SML_syntax = SML, SML_env = SML, exchange = false, redirect = false, verbose = verbose,
   138     {SML = SML, exchange = false, redirect = false, verbose = verbose,
   139       debug = SOME false, writeln = writeln_message, warning = warning_message}
   139       debug = SOME false, writeln = writeln_message, warning = warning_message}
   140     Position.none;
   140     Position.none;
   141 
   141 
   142 fun eval_setup thread_name index SML context =
   142 fun eval_setup thread_name index SML context =
   143   context
   143   context