src/Tools/Code/code_target.ML
changeset 69906 55534affe445
parent 69784 24bbc4e30e5b
child 69998 c61f6bc9cf5c
equal deleted inserted replaced
69905:06f204a2f3c2 69906:55534affe445
   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 = ""