[hcoop/debian/mlton.git] / basis-library / mlton / call-stack.sig

(* Copyright (C) 2004-2005 Henry Cejtin, Matthew Fluet, Suresh
 *    Jagannathan, and Stephen Weeks.
 *
 * MLton is released under a BSD-style license.
 * See the file MLton-LICENSE for details.
 *)

signature MLTON_CALL_STACK =
   sig
      type t

      val keep: bool
      val current: unit -> t
      val toStrings: t -> string list
   end
Commit	Line	Data
7f918cf1 CE	1	(* Copyright (C) 2004-2005 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_CALL_STACK =
	9	sig
	10	type t
	11
	12	val keep: bool
	13	val current: unit -> t
	14	val toStrings: t -> string list
	15	end