src/Pure/ML-Systems/time_limit.ML
changeset 24688 a5754ca5c510
child 29564 f8b933a62151
     1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/src/Pure/ML-Systems/time_limit.ML	Mon Sep 24 13:52:50 2007 +0200
     1.3 @@ -0,0 +1,21 @@
     1.4 +(*  Title:      Pure/ML-Systems/time_limit.ML
     1.5 +    ID:         $Id$
     1.6 +    Author:     Makarius
     1.7 +
     1.8 +Dummy implementation of NJ's TimeLimit structure.
     1.9 +*)
    1.10 +
    1.11 +signature TIME_LIMIT =
    1.12 +sig
    1.13 +  exception TimeOut
    1.14 +  val timeLimit : Time.time -> ('a -> 'b) -> 'a -> 'b
    1.15 +end;
    1.16 +
    1.17 +structure TimeLimit: TIME_LIMIT =
    1.18 +struct
    1.19 +
    1.20 +exception TimeOut;
    1.21 +fun timeLimit _ f x = f x;
    1.22 +
    1.23 +end;
    1.24 +