X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/12adf55a902b1d9bde677e4636530e5753857e05..8a7c40fa29ff18a437fcf4ee3f248a7aeb41c19c:/src/eval.sml

diff --git a/src/eval.sml b/src/eval.sml
index 232a8aa..7aa8053 100644
--- a/src/eval.sml
+++ b/src/eval.sml
@@ -30,6 +30,11 @@ fun lookup (evs, ev) =
 			    ^ ev ^ " that type-checking has guaranteed")
       | SOME v => v
 
+fun printEvs (name, evs) =
+    (print ("Environment " ^ name ^ "\n");
+     SM.appi (fn (name, i) => Print.preface (name, Print.p_exp i)) evs;
+     print "\n")
+
 val conjoin : Env.env_vars * Env.env_vars -> Env.env_vars =
   SM.unionWith #2
 
@@ -90,7 +95,7 @@ fun exec evs e =
 			    val evs'' = exec' evs e2
 			in
 			    cleanup ();
-			    conjoin (conjoin (evs, evs'), evs'')
+			    evs'
 			end
 		end