Mercurial > urweb

diff src/mono_print.sml @ 1220:526575a9537a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Insert policies
author Adam Chlipala <adamc@hcoop.net>
date Sun, 11 Apr 2010 10:57:52 -0400
parents 648e6b087dfb
children 00e628854005
line wrap: on
line diff
--- a/src/mono_print.sml	Sat Apr 10 13:12:42 2010 -0400
+++ b/src/mono_print.sml	Sun Apr 11 10:57:52 2010 -0400
@@ -417,6 +417,9 @@
         PolClient e => box [string "sendClient",
                             space,
                             p_exp env e]
+      | PolInsert e => box [string "mayInsert",
+                            space,
+                            p_exp env e]
 
 fun p_decl env (dAll as (d, _) : decl) =
     case d of