X-Git-Url: https://git.hcoop.net/clinton/domtool2.git/blobdiff_plain/a3698041b3521c3cb17b3546ecdc08ba101c788a..e0b0abd209a1ecbd9266cfcf8735af171f96869b:/src/eval.sml

diff --git a/src/eval.sml b/src/eval.sml
index c05d781..232a8aa 100644
--- a/src/eval.sml
+++ b/src/eval.sml
@@ -14,7 +14,7 @@
  * You should have received a copy of the GNU General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
-*)
+ *)
 
 (* Execution of Domtool programs reduced to primitive actions *)
 
@@ -103,9 +103,10 @@ fun exec evs e =
 		      | SOME action => action (evs, args)
 		end
 
+	val _ = Env.pre ()
 	val evs' = exec' evs e
     in
-	()
+	Env.post ()
     end
 
 end