src/HOL/Tools/Predicate_Compile/code_prolog.ML
changeset 62519 a564458f94db
parent 61424 c3658c18b7bc
child 62549 9498623b27f0
--- a/src/HOL/Tools/Predicate_Compile/code_prolog.ML	Sat Mar 05 13:57:25 2016 +0100
+++ b/src/HOL/Tools/Predicate_Compile/code_prolog.ML	Sat Mar 05 17:01:45 2016 +0100
@@ -882,7 +882,7 @@
     val args' = map (rename_vars_term renaming) args
     val prog = prelude system ^ query system nsols (query_rel, args') vnames' ^ write_program p
     val _ = tracing ("Generated prolog program:\n" ^ prog)
-    val solution = TimeLimit.timeLimit timeout (fn prog =>
+    val solution = Timeout.apply timeout (fn prog =>
       Isabelle_System.with_tmp_file "prolog_file" "" (fn prolog_file =>
         (File.write prolog_file prog; invoke system prolog_file))) prog
     val _ = tracing ("Prolog returned solution(s):\n" ^ solution)