Mercurial > urweb
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