Initializers and setval

1 files changed, 5 insertions, 1 deletions

diff --git a/src/corify.sml b/src/corify.sml
index 9bf322f3..cc0500af 100644
--- a/src/corify.sml
+++ b/src/corify.sml
@@ -1064,6 +1064,9 @@ fun corifyDecl mods (all as (d, loc : EM.span), st) =
             ([(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 @@ fun maxName ds = foldl (fn ((d, _), n) =>
                              | 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, _) =