in "overlord" mode: ignore problem prefix specified in the .thy file
authorblanchet
Thu, 29 Apr 2010 19:08:02 +0200
changeset 36568 d495d2e1f0a6
parent 36567 f1cb249f6384
child 36569 3a29eb7606c3
in "overlord" mode: ignore problem prefix specified in the .thy file
src/HOL/Tools/ATP_Manager/atp_systems.ML
--- 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