diff src/corify.sml @ 1075:0657e5adc938

Convert to task syntax
author Adam Chlipala <adamc@hcoop.net>
date Tue, 15 Dec 2009 10:19:05 -0500
parents b2311dfb3158
children 72670131dace
line wrap: on
line diff
--- a/src/corify.sml	Sun Dec 13 14:34:18 2009 -0500
+++ b/src/corify.sml	Tue Dec 15 10:19:05 2009 -0500
@@ -1064,8 +1064,8 @@
             ([(L'.DStyle (x, n, s), loc)], st)
         end
 
-      | L.DInitializer e =>
-        ([(L'.DInitializer (corifyExp st e), loc)], st)
+      | L.DTask (e1, e2) =>
+        ([(L'.DTask (corifyExp st e1, corifyExp st e2), loc)], st)
 
 and corifyStr mods ((str, _), st) =
     case str of
@@ -1124,7 +1124,7 @@
                              | L.DDatabase _ => n
                              | L.DCookie (_, _, n', _) => Int.max (n, n')
                              | L.DStyle (_, _, n') => Int.max (n, n')
-                             | L.DInitializer _ => n)
+                             | L.DTask _ => n)
                        0 ds
 
 and maxNameStr (str, _) =