Mercurial > urweb
diff src/monoize.sml @ 277:286f734db702
First query execution (not retrieving results yet)
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Tue, 02 Sep 2008 15:29:45 -0400 |
parents | e4baf03a3a64 |
children | c0e4ac23522d |
line wrap: on
line diff
--- a/src/monoize.sml Tue Sep 02 14:59:27 2008 -0400 +++ b/src/monoize.sml Tue Sep 02 15:29:45 2008 -0400 @@ -623,7 +623,7 @@ @ map (fn (x, xts) => strcatComma loc (map (fn (x', _) => - sc (x ^ "." ^ x')) + sc (x ^ ".lw_" ^ x')) xts)) stables), sc " FROM ", strcatComma loc (map (fn (x, _) => strcat loc [(L'.EField (gf "From", x), loc), @@ -650,7 +650,7 @@ strcatComma loc (map (fn (x, xts) => strcatComma loc (map (fn (x', _) => - sc (x ^ "." ^ x')) + sc (x ^ ".lw_" ^ x')) xts)) grouped) ], @@ -871,7 +871,7 @@ _), _), _), _), (L.CName tab, _)), _), - (L.CName field, _)) => ((L'.EPrim (Prim.String (tab ^ "." ^ field)), loc), fm) + (L.CName field, _)) => ((L'.EPrim (Prim.String (tab ^ ".lw_" ^ field)), loc), fm) | L.ECApp ( (L.ECApp (