Mercurial > urweb

diff src/jscomp.sml @ 1293:acabf3935060

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
tryDml
author Adam Chlipala <adam@chlipala.net>
date Sun, 05 Sep 2010 14:00:57 -0400
parents 514be09d5018
children c17e6144510b
line wrap: on
line diff
--- a/src/jscomp.sml	Sun Sep 05 12:50:06 2010 -0400
+++ b/src/jscomp.sml	Sun Sep 05 14:00:57 2010 -0400
@@ -1147,11 +1147,11 @@
                      ((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