fixed settings of limits

src/session/controller_itp.ml

@@ -82,8 +82,7 @@ let build_prover_call c id pr limit callback =
   let (config_pr,driver) = Hprover.find c.controller_provers pr in
   let command =
     Whyconf.get_complete_command config_pr
-          ~with_steps:(limit.Call_provers.limit_steps <>
-                       Call_provers.empty_limit.Call_provers.limit_steps) in
+          ~with_steps:Call_provers.(limit.limit_steps <> empty_limit.limit_steps) in
   let task = Session_itp.get_task c.controller_session id in
   let call =
     Driver.prove_task ?old:None ~cntexample:false ~inplace:false ~command

src/why3shell/why3shell.ml

@@ -233,12 +233,7 @@ let test_schedule_proof_attempt fmt _args =
     fprintf fmt "status: %a@."
             Controller_itp.print_status status
   in
-  let limit = Call_provers.{
-                limit_time = 5 ;
-                limit_mem  = 1000;
-                limit_steps = -1;
-              }
-  in
+  let limit = Call_provers.{empty_limit with limit_time = 2} in
   C.schedule_proof_attempt
     cont id alt_ergo.Whyconf.prover
     ~limit ~callback