equal
deleted
inserted
replaced
330 |
330 |
331 |
331 |
332 (* execute compiler -- auxiliary *) |
332 (* execute compiler -- auxiliary *) |
333 |
333 |
334 fun execute dir title compile = |
334 fun execute dir title compile = |
335 Isabelle_System.bash_output_check ("cd " ^ File.bash_path dir ^ " && " ^ compile) |
335 Isabelle_System.bash_process ("cd " ^ File.bash_path dir ^ " && " ^ compile) |
|
336 |> Process_Result.check |
|
337 |> Process_Result.out |
336 handle ERROR msg => |
338 handle ERROR msg => |
337 let val (s, pos) = Input.source_content title |
339 let val (s, pos) = Input.source_content title |
338 in error (s ^ " failed" ^ Position.here pos ^ ":\n" ^ msg) end; |
340 in error (s ^ " failed" ^ Position.here pos ^ ":\n" ^ msg) end; |
339 |
341 |
340 |
342 |