Mercurial > urweb

diff src/reduce.sml @ 1075:0657e5adc938

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Convert to task syntax
author Adam Chlipala <adamc@hcoop.net>
date Tue, 15 Dec 2009 10:19:05 -0500
parents b2311dfb3158
children 85d194409b17
line wrap: on
line diff
--- a/src/reduce.sml	Sun Dec 13 14:34:18 2009 -0500
+++ b/src/reduce.sml	Tue Dec 15 10:19:05 2009 -0500
@@ -804,11 +804,12 @@
               | DDatabase _ => (d, st)
               | DCookie (s, n, c, s') => ((DCookie (s, n, con namedC [] c, s'), loc), st)
               | DStyle (s, n, s') => ((DStyle (s, n, s'), loc), st)
-              | DInitializer e =>
+              | DTask (e1, e2) =>
                 let
-                    val e = exp (namedC, namedE) [] e
+                    val e1 = exp (namedC, namedE) [] e1
+                    val e2 = exp (namedC, namedE) [] e2
                 in
-                    ((DInitializer e, loc),
+                    ((DTask (e1, e2), loc),
                      (polyC,
                       namedC,
                       namedE))