Mercurial > urweb

comparison src/monoize.sml @ 1664:a12186d99e4f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Finish function argument order-of-operations fix
author Adam Chlipala <adam@chlipala.net>
date Sat, 07 Jan 2012 16:49:19 -0500
parents 0577be31a435
children 5b2c7b9f6017
comparison
equal deleted inserted replaced
1663:0577be31a435 1664:a12186d99e4f
1408 (L'.EAbs ("_", (L'.TRecord [], loc), (L'.TRecord [], loc), 1408 (L'.EAbs ("_", (L'.TRecord [], loc), (L'.TRecord [], loc),
1409 (L'.EFfiApp ("Basis", "set_client_source", 1409 (L'.EFfiApp ("Basis", "set_client_source",
1410 [((L'.ERel 2, loc), (L'.TSource, loc)), 1410 [((L'.ERel 2, loc), (L'.TSource, loc)),
1411 ((L'.EJavaScript (L'.Source t, 1411 ((L'.EJavaScript (L'.Source t,
1412 (L'.ERel 1, loc)), loc), 1412 (L'.ERel 1, loc)), loc),
1413 t)]), 1413 (L'.TFfi ("Basis", "string"), loc))]),
1414 loc)), loc)), loc)), loc), 1414 loc)), loc)), loc)), loc),
1415 fm) 1415 fm)
1416 end 1416 end
1417 | L.ECApp ((L.EFfi ("Basis", "get"), _), t) => 1417 | L.ECApp ((L.EFfi ("Basis", "get"), _), t) =>
1418 let 1418 let