diff src/reduce_local.sml @ 1073:b2311dfb3158

Initializers and setval
author Adam Chlipala <adamc@hcoop.net>
date Sun, 13 Dec 2009 14:20:41 -0500
parents 3bc726a822fb
children 0657e5adc938
line wrap: on
line diff
--- a/src/reduce_local.sml	Sun Dec 13 13:00:55 2009 -0500
+++ b/src/reduce_local.sml	Sun Dec 13 14:20:41 2009 -0500
@@ -251,6 +251,7 @@
               | DDatabase _ => d
               | DCookie _ => d
               | DStyle _ => d
+              | DInitializer e => (DInitializer (exp [] e), loc)
     in
         map doDecl file
     end