author | wenzelm |
Fri, 03 Oct 2008 21:06:38 +0200 | |
changeset 28490 | 40c3f900c457 |
parent 24688 | a5754ca5c510 |
child 29564 | f8b933a62151 |
permissions | -rw-r--r-- |
(* 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;