Slave dispatching working

[hcoop/domtool2.git] / src / main.sig

diff --git a/src/main.sig b/src/main.sig
index 90c7cc9..69abb82 100644 (file)
--- a/src/main.sig
+++ b/src/main.sig
@@ -20,8 +20,7 @@
 
 signature MAIN = sig
 
-    val tInit : unit -> Ast.typ
-    val registerDefault : string * Ast.typ * (unit -> Ast.exp) -> unit
+    val init : unit -> unit
 
     val check : string -> Env.env * Ast.exp option
     val check' : Env.env -> string -> Env.env
@@ -33,5 +32,6 @@ signature MAIN = sig
 
     val request : string -> unit
     val service : unit -> unit
+    val slave : unit -> unit
 
 end