running.sml

这是我们参加06年全国开源软件的竞赛作品

(* 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