src/Pure/ML-Systems/time_limit.ML
author haftmann
Tue Oct 20 16:13:01 2009 +0200 (2009-10-20)
changeset 33037 b22e44496dc2
parent 29564 f8b933a62151
permissions -rw-r--r--
replaced old_style infixes eq_set, subset, union, inter and variants by generic versions
     1 (*  Title:      Pure/ML-Systems/time_limit.ML
     2     Author:     Makarius
     3 
     4 Dummy implementation of NJ's TimeLimit structure.
     5 *)
     6 
     7 signature TIME_LIMIT =
     8 sig
     9   exception TimeOut
    10   val timeLimit : Time.time -> ('a -> 'b) -> 'a -> 'b
    11 end;
    12 
    13 structure TimeLimit: TIME_LIMIT =
    14 struct
    15 
    16 exception TimeOut;
    17 fun timeLimit _ f x = f x;
    18 
    19 end;
    20