equal
deleted
inserted
replaced
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 |