Mercurial > urweb
diff src/monoize.sml @ 267:f31e8da68e90
Changed EQuery not to use a function in its body
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Sun, 31 Aug 2008 16:32:49 -0400 |
| parents | 7a7efbb3e354 |
| children | bacd0ba869e1 |
line wrap: on
line diff
--- a/src/monoize.sml Sun Aug 31 16:26:50 2008 -0400 +++ b/src/monoize.sml Sun Aug 31 16:32:49 2008 -0400 @@ -519,15 +519,12 @@ (L'.TFun (un, state), loc)), loc)), loc) - val body' = (L'.EAbs ("r", (L'.TRecord rt, loc), - (L'.TFun (state, state), loc), - (L'.EAbs ("acc", state, state, - (L'.EApp ( - (L'.EApp ( - (L'.EApp ((L'.ERel 4, loc), - (L'.ERel 1, loc)), loc), - (L'.ERel 0, loc)), loc), - (L'.ERecord [], loc)), loc)), loc)), loc) + val body' = (L'.EApp ( + (L'.EApp ( + (L'.EApp ((L'.ERel 4, loc), + (L'.ERel 1, loc)), loc), + (L'.ERel 0, loc)), loc), + (L'.ERecord [], loc)), loc) val body = (L'.EQuery {exps = exps, tables = tables,