src/HOL/Tools/Sledgehammer/sledgehammer_isar_preplay.ML
changeset 62519 a564458f94db
parent 62219 dbac573b27e7
child 62826 eb94e570c1a4
--- a/src/HOL/Tools/Sledgehammer/sledgehammer_isar_preplay.ML	Sat Mar 05 13:57:25 2016 +0100
+++ b/src/HOL/Tools/Sledgehammer/sledgehammer_isar_preplay.ML	Sat Mar 05 17:01:45 2016 +0100
@@ -97,8 +97,8 @@
 
 fun take_time timeout tac arg =
   let val timing = Timing.start () in
-    (TimeLimit.timeLimit timeout tac arg; Played (#cpu (Timing.result timing)))
-    handle TimeLimit.TimeOut => Play_Timed_Out timeout
+    (Timeout.apply timeout tac arg; Played (#cpu (Timing.result timing)))
+    handle Timeout.TIMEOUT _ => Play_Timed_Out timeout
   end
 
 fun resolve_fact_names ctxt names =