equal
deleted
inserted
replaced
420 let |
420 let |
421 val destination = make_destination p; |
421 val destination = make_destination p; |
422 val _ = export_result ctxt (SOME (SOME destination)) 80 |
422 val _ = export_result ctxt (SOME (SOME destination)) 80 |
423 (invoke_serializer ctxt target_name generatedN args program all_public syms) |
423 (invoke_serializer ctxt target_name generatedN args program all_public syms) |
424 val cmd = make_command generatedN; |
424 val cmd = make_command generatedN; |
|
425 val context_cmd = "cd " ^ File.bash_path p ^ " && " ^ cmd ^ " 2>&1"; |
425 in |
426 in |
426 if Isabelle_System.bash ("cd " ^ File.bash_path p ^ " && " ^ cmd ^ " 2>&1") <> 0 |
427 if Isabelle_System.bash context_cmd <> 0 |
427 then error ("Code check failed for " ^ target_name ^ ": " ^ cmd) |
428 then error ("Code check failed for " ^ target_name ^ ": " ^ cmd) |
428 else () |
429 else () |
429 end; |
430 end; |
430 in |
431 in |
431 if not (env_var = "") andalso getenv env_var = "" |
432 if not (env_var = "") andalso getenv env_var = "" |