Mercurial > urweb

comparison src/monoize.sml @ 1466:e2d7bd41f527

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remember to remove explicit table projections in SQLite UPDATE SET values
author Adam Chlipala <adam@chlipala.net>
date Mon, 30 May 2011 07:48:08 -0400
parents 607657eb2865
children b703b375c3c0
comparison
equal deleted inserted replaced
1465:2f5fd248588d 1466:e2d7bd41f527
1821 (L'.ERel 1, loc), 1821 (L'.ERel 1, loc),
1822 sc " SET ", 1822 sc " SET ",
1823 strcatComma (map (fn (x, _) => 1823 strcatComma (map (fn (x, _) =>
1824 strcat [sc ("uw_" ^ x 1824 strcat [sc ("uw_" ^ x
1825 ^ " = "), 1825 ^ " = "),
1826 (L'.EField 1826 (L'.EFfiApp ("Basis", "unAs",
1827 ((L'.ERel 2, 1827 [(L'.EField
1828 loc), 1828 ((L'.ERel 2,
1829 x), loc)]) 1829 loc),
1830 x), loc)]), loc)])
1830 changed), 1831 changed),
1831 sc " WHERE ", 1832 sc " WHERE ",
1832 (L'.EFfiApp ("Basis", "unAs", [(L'.ERel 0, loc)]), loc)]), 1833 (L'.EFfiApp ("Basis", "unAs", [(L'.ERel 0, loc)]), loc)]),
1833 loc)), loc)), loc), 1834 loc)), loc)), loc),
1834 fm) 1835 fm)