summaryrefslogtreecommitdiff
path: root/src/cjr_print.sml
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2009-12-15 10:19:05 -0500
committerGravatar Adam Chlipala <adamc@hcoop.net>2009-12-15 10:19:05 -0500
commit6179a09d47c5af4db1ac41d00b8cb7ec36741c3e (patch)
tree0912963011416a0f1132c07d44c3eca8b6545d54 /src/cjr_print.sml
parent1589307fcb887ec55b5baea7445747b479a665d2 (diff)
Convert to task syntax
Diffstat (limited to 'src/cjr_print.sml')
-rw-r--r--src/cjr_print.sml4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/cjr_print.sml b/src/cjr_print.sml
index 6a5116ce..2d547519 100644
--- a/src/cjr_print.sml
+++ b/src/cjr_print.sml
@@ -2099,7 +2099,7 @@ fun p_decl env (dAll as (d, _) : decl) =
space,
string "*/"]
- | DInitializer _ => box []
+ | DTask _ => box []
datatype 'a search =
Found of 'a
@@ -2733,7 +2733,7 @@ fun p_file env (ds, ps) =
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,