Mercurial > urweb

comparison 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
comparison
equal deleted inserted replaced
1292:a671c986f517 1293:acabf3935060
1145 val (initial, st) = exp outer (initial, st) 1145 val (initial, st) = exp outer (initial, st)
1146 in 1146 in
1147 ((EQuery {exps = exps, tables = tables, state = state, 1147 ((EQuery {exps = exps, tables = tables, state = state,
1148 query = query, body = body, initial = initial}, loc), st) 1148 query = query, body = body, initial = initial}, loc), st)
1149 end 1149 end
1150 | EDml e => 1150 | EDml (e, mode) =>
1151 let 1151 let
1152 val (e, st) = exp outer (e, st) 1152 val (e, st) = exp outer (e, st)
1153 in 1153 in
1154 ((EDml e, loc), st) 1154 ((EDml (e, mode), loc), st)
1155 end 1155 end
1156 | ENextval e => 1156 | ENextval e =>
1157 let 1157 let
1158 val (e, st) = exp outer (e, st) 1158 val (e, st) = exp outer (e, st)
1159 in 1159 in