src/Pure/ML-Systems/no_multithreading.ML
author wenzelm
Tue, 24 Jul 2007 19:44:33 +0200
changeset 23962 e0358fac0541
parent 23946 4fbb1ff12337
permissions -rw-r--r--
Runtime exceptions as values (from library.ML);

(*  Title:      Pure/ML-Systems/no_multithreading.ML
    ID:         $Id$
    Author:     Makarius

Compatibility file for ML systems without multithreading.
*)

(*default number of worker threads*)
val multithreading = ref (NONE: int option);

(*critical section*)
fun self_critical () = false;
fun CRITICAL e = e ();