src/Pure/ML-Systems/time_limit.ML
author wenzelm
Sat, 23 Aug 2008 17:22:51 +0200
changeset 27950 dbb93a5e6e6a
parent 24688 a5754ca5c510
child 29564 f8b933a62151
permissions -rw-r--r--
added Tools/isabelle_process.scala, Tools/isabelle_syntax.scala; scalac -deprecation;

(*  Title:      Pure/ML-Systems/time_limit.ML
    ID:         $Id$
    Author:     Makarius

Dummy implementation of NJ's TimeLimit structure.
*)

signature TIME_LIMIT =
sig
  exception TimeOut
  val timeLimit : Time.time -> ('a -> 'b) -> 'a -> 'b
end;

structure TimeLimit: TIME_LIMIT =
struct

exception TimeOut;
fun timeLimit _ f x = f x;

end;