running.sml

来自「这是我们参加06年全国开源软件的竞赛作品」· SML 代码 · 共 14 行

(* running.sml
 *
 * COPYRIGHT (c) 1997 Bell Labs, Lucent Technologies.
 *
 * A flag to tell us if CML is running.  This gets set and cleared in the
 * RunCMLFn functor, but other modules need to test it.
 *)

structure Running =
  struct
    val isRunning = ref false
  end