X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/2ed6d0e50d89234c3d63c3707e855c922bd49358..12adf55a902b1d9bde677e4636530e5753857e05:/src/env.sml?ds=sidebyside

diff --git a/src/env.sml b/src/env.sml
index 167adce..db92e6e 100644
--- a/src/env.sml
+++ b/src/env.sml
@@ -69,6 +69,20 @@ fun post () = !pst ()
 
 end
 
+local
+    val pr = ref (fn () => ())
+in
+
+fun registerPreTycheck f =
+    let
+	val old = !pr
+    in
+	pr := (fn () => (old (); f ()))
+    end
+fun preTycheck () = !pr ()
+
+end
+
 fun badArgs (name, args) =
     (print ("Invalid arguments to " ^ name ^ "\n");
      app (fn arg => Print.preface ("Argument: ", Print.p_exp arg)) args;