[hcoop/debian/mlton.git] / lib / cml / core-cml / running.sml

(* running.sml\r
 * 2004 Matthew Fluet (mfluet@acm.org)\r
 *  Ported to MLton threads.\r
 *)\r
\r
(* running.sml\r
 *\r
 * COPYRIGHT (c) 1997 Bell Labs, Lucent Technologies.\r
 *\r
 * A flag to tell us if CML is running.  This gets set and cleared in the\r
 * RunCMLFn functor, but other modules need to test it.\r
 *)\r
\r
structure Running =\r
  struct\r
    val isRunning = ref false\r
  end\r
Commit	Line	Data
7f918cf1 CE	1	(* running.sml\r
	2	* 2004 Matthew Fluet (mfluet@acm.org)\r
	3	* Ported to MLton threads.\r
	4	*)\r
	5	\r
	6	(* running.sml\r
	7	*\r
	8	* COPYRIGHT (c) 1997 Bell Labs, Lucent Technologies.\r
	9	*\r
	10	* A flag to tell us if CML is running. This gets set and cleared in the\r
	11	* RunCMLFn functor, but other modules need to test it.\r
	12	*)\r
	13	\r
	14	structure Running =\r
	15	struct\r
	16	val isRunning = ref false\r
	17	end\r