diff src/mono_print.sml @ 1229:a2cd6664f57f

sendOwnIds policies
author Adam Chlipala <adamc@hcoop.net>
date Sun, 11 Apr 2010 17:55:37 -0400
parents 62af4cacd191
children 3d06e0f7a6f3
line wrap: on
line diff
--- a/src/mono_print.sml	Sun Apr 11 16:46:38 2010 -0400
+++ b/src/mono_print.sml	Sun Apr 11 17:55:37 2010 -0400
@@ -426,6 +426,9 @@
       | PolUpdate e => box [string "mayUpdate",
                             space,
                             p_exp env e]
+      | PolSequence e => box [string "sendOwnIds",
+                              space,
+                              p_exp env e]
 
 fun p_decl env (dAll as (d, _) : decl) =
     case d of