STM: code refactoring

This is mainly shuffling code around and removing internal
refs that are not needed anymore.

1 files changed, 8 insertions, 5 deletions

diff --git a/stm/asyncTaskQueue.mli b/stm/asyncTaskQueue.mli
index cd91ba129..96239d145 100644
--- a/stm/asyncTaskQueue.mli
+++ b/stm/asyncTaskQueue.mli
@@ -36,7 +36,7 @@ end
 
 type cancel_switch = bool ref
 
-module Make(T : Task) : sig
+module MakeQueue(T : Task) : sig
 
   (* Number of workers, 0 = lazy local *)
   val init : int -> unit
@@ -53,10 +53,6 @@ module Make(T : Task) : sig
   val join : unit -> unit
   val cancel_all : unit -> unit
 
-  (* slave process main loop *)
-  val slave_main_loop : (unit -> unit) -> unit
-  val slave_init_stdout : unit -> unit
-  
   val cancel_worker : string -> unit
 
   val set_order : (T.task -> T.task -> int) -> unit
@@ -69,3 +65,10 @@ module Make(T : Task) : sig
   val clear : unit -> unit
 
 end
+
+module MakeWorker(T : Task) : sig
+
+  val main_loop : unit -> unit
+  val init_stdout : unit -> unit
+  
+end