equal
deleted
inserted
replaced
816 | YAP => ("ISABELLE_YAP", "\"$ISABELLE_YAP\" -L ")) |
816 | YAP => ("ISABELLE_YAP", "\"$ISABELLE_YAP\" -L ")) |
817 in |
817 in |
818 if getenv env_var = "" then |
818 if getenv env_var = "" then |
819 (warning (env_var ^ " not set; could not execute code for " ^ string_of_system system); "") |
819 (warning (env_var ^ " not set; could not execute code for " ^ string_of_system system); "") |
820 else |
820 else |
821 let val res = Isabelle_System.bash_process (cmd ^ File.bash_path file) in |
821 let val res = Isabelle_System.bash_process_script (cmd ^ File.bash_path file) in |
822 res |> Process_Result.check |> Process_Result.out |
822 res |> Process_Result.check |> Process_Result.out |
823 handle ERROR msg => |
823 handle ERROR msg => |
824 cat_error ("Error caused by prolog system " ^ env_var ^ |
824 cat_error ("Error caused by prolog system " ^ env_var ^ |
825 ": return code " ^ string_of_int (Process_Result.rc res)) msg |
825 ": return code " ^ string_of_int (Process_Result.rc res)) msg |
826 end |
826 end |