author | blanchet |
Thu, 29 Apr 2010 19:08:02 +0200 | |
changeset 36568 | d495d2e1f0a6 |
parent 36567 | f1cb249f6384 |
child 36569 | 3a29eb7606c3 |
--- a/src/HOL/Tools/ATP_Manager/atp_systems.ML Thu Apr 29 19:07:36 2010 +0200 +++ b/src/HOL/Tools/ATP_Manager/atp_systems.ML Thu Apr 29 19:08:02 2010 +0200 @@ -141,8 +141,8 @@ fun prob_pathname nr = let val probfile = - Path.basic (the_problem_prefix ^ - (if overlord then "_" ^ name else serial_string ()) + Path.basic ((if overlord then "prob_" ^ name + else the_problem_prefix ^ serial_string ()) ^ "_" ^ string_of_int nr) in if the_dest_dir = "" then File.tmp_path probfile