Mercurial > urweb

diff src/cjr_print.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 db52c32dbe42
line wrap: on
line diff
--- a/src/cjr_print.sml	Sun Dec 13 14:34:18 2009 -0500
+++ b/src/cjr_print.sml	Tue Dec 15 10:19:05 2009 -0500
@@ -2099,7 +2099,7 @@
                          space,
                          string "*/"]
 
-      | DInitializer _ => box []
+      | DTask _ => box []
 
 datatype 'a search =
          Found of 'a
@@ -2733,7 +2733,7 @@
                  string "}",
                  newline]
 
-        val initializers = List.mapPartial (fn (DInitializer e, _) => SOME e | _ => NONE) ds
+        val initializers = List.mapPartial (fn (DTask (Initialize, e), _) => SOME e | _ => NONE) ds
     in
         box [string "#include <stdio.h>",
              newline,