Start of Apache
[hcoop/domtool2.git] / src / eval.sml
index 232a8aa..7aa8053 100644 (file)
@@ -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