From ee175ea1f9151123e47d9cbfee0c6329b2e5d934 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adam@chlipala.net>
Date: Sun, 5 Sep 2010 14:00:57 -0400
Subject: tryDml

---
 src/jscomp.sml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/jscomp.sml')

diff --git a/src/jscomp.sml b/src/jscomp.sml
index f97725eb..2f7ee5ab 100644
--- a/src/jscomp.sml
+++ b/src/jscomp.sml
@@ -1147,11 +1147,11 @@ fun process file =
                      ((EQuery {exps = exps, tables = tables, state = state,
                                query = query, body = body, initial = initial}, loc), st)
                  end
-               | EDml e =>
+               | EDml (e, mode) =>
                  let
                      val (e, st) = exp outer (e, st)
                  in
-                     ((EDml e, loc), st)
+                     ((EDml (e, mode), loc), st)
                  end
                | ENextval e =>
                  let
-- 
cgit v1.2.3