basis-library/mlton/exn.sig

   1 (* Copyright (C) 2001-2007 Henry Cejtin, Matthew Fluet, Suresh
   2  *    Jagannathan, and Stephen Weeks.
   3  *
   4  * MLton is released under a BSD-style license.
   5  * See the file MLton-LICENSE for details.
   6  *)
   7
   8 signature MLTON_EXN =
   9    sig
  10       val addExnMessager: (exn -> string option) -> unit
  11       val history: exn -> string list
  12
  13       val defaultTopLevelHandler: exn -> 'a (* does not return *)
  14       val getTopLevelHandler: unit -> (exn -> unit)
  15       val setTopLevelHandler: (exn -> unit) -> unit
  16       val topLevelHandler: exn -> 'a (* does not return *)
  17    end