Mercurial > urweb
diff src/jscomp.sml @ 1293:acabf3935060
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