Mercurial > urweb

diff src/mono_print.sml @ 1223:62af4cacd191

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update policies
author Adam Chlipala <adamc@hcoop.net>
date Sun, 11 Apr 2010 13:11:25 -0400
parents 00e628854005
children a2cd6664f57f
line wrap: on
line diff
--- a/src/mono_print.sml	Sun Apr 11 12:45:15 2010 -0400
+++ b/src/mono_print.sml	Sun Apr 11 13:11:25 2010 -0400
@@ -423,6 +423,9 @@
       | PolDelete e => box [string "mayDelete",
                             space,
                             p_exp env e]
+      | PolUpdate e => box [string "mayUpdate",
+                            space,
+                            p_exp env e]
 
 fun p_decl env (dAll as (d, _) : decl) =
     case d of