equal
deleted
inserted
replaced
237 |
237 |
238 (*PIDE version*) |
238 (*PIDE version*) |
239 val _ = |
239 val _ = |
240 Isabelle_Process.protocol_command "build_session" |
240 Isabelle_Process.protocol_command "build_session" |
241 (fn [args_yxml] => |
241 (fn [args_yxml] => |
242 let |
242 let |
243 val args = decode_args args_yxml; |
243 val args = decode_args args_yxml; |
244 val result = (build_session args; "") handle exn => |
244 val result = (build_session args; "") handle exn => |
245 (Runtime.exn_message exn handle _ (*sic!*) => |
245 (Runtime.exn_message exn handle _ (*sic!*) => |
246 "Exception raised, but failed to print details!"); |
246 "Exception raised, but failed to print details!"); |
247 in Output.protocol_message Markup.build_session_finished [result] end | _ => raise Match); |
247 in Output.protocol_message Markup.build_session_finished [XML.Text result] end |
|
248 | _ => raise Match); |
248 |
249 |
249 end; |
250 end; |