Mercurial > urweb
diff src/corify.sml @ 1073:b2311dfb3158
Initializers and setval
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Sun, 13 Dec 2009 14:20:41 -0500 |
| parents | e46227efcbba |
| children | 0657e5adc938 |
line wrap: on
line diff
--- a/src/corify.sml Sun Dec 13 13:00:55 2009 -0500 +++ b/src/corify.sml Sun Dec 13 14:20:41 2009 -0500 @@ -1064,6 +1064,9 @@ ([(L'.DStyle (x, n, s), loc)], st) end + | L.DInitializer e => + ([(L'.DInitializer (corifyExp st e), loc)], st) + and corifyStr mods ((str, _), st) = case str of L.StrConst ds => @@ -1120,7 +1123,8 @@ | L.DView (_, _, n', _, _) => Int.max (n, n') | L.DDatabase _ => n | L.DCookie (_, _, n', _) => Int.max (n, n') - | L.DStyle (_, _, n') => Int.max (n, n')) + | L.DStyle (_, _, n') => Int.max (n, n') + | L.DInitializer _ => n) 0 ds and maxNameStr (str, _) =