diff options
author | Adam Chlipala <adam@chlipala.net> | 2010-07-27 14:04:09 -0400 |
---|---|---|
committer | Adam Chlipala <adam@chlipala.net> | 2010-07-27 14:04:09 -0400 |
commit | f39537f5df937039b1487fef4095047f950c316f (patch) | |
tree | 7853299e0060cd6c6eea28a26aa4ee33b1b93c21 /src/mono_print.sml | |
parent | 2c0738bd52259d4d02045fa2d5cb74f5576b71dc (diff) |
Roll back WHERE checking
Diffstat (limited to 'src/mono_print.sml')
-rw-r--r-- | src/mono_print.sml | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/src/mono_print.sml b/src/mono_print.sml index 74467e08..25a8e9d8 100644 --- a/src/mono_print.sml +++ b/src/mono_print.sml @@ -429,13 +429,6 @@ fun p_policy env pol = | PolSequence e => box [string "sendOwnIds", space, p_exp env e] - | PolEqual {table = tab, field = nm, known} => box [string "equal", - string (if known then "Known" else "Any"), - string "[", - string nm, - string "]", - space, - p_exp env tab] fun p_decl env (dAll as (d, _) : decl) = case d of |