lib/stubs/mlton-stubs/exn.sig

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